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Vorwort 


Der Kluge bemüht sich, alles richtig zu machen. 

Der Weise bemüht sich, so wenig wie möglich falsch zu machen. 

(Persisches Sprichwort) 


Turbo Pascal ist ein neuer Pascal-Dialekt, der einige Vorzüge gegenüber sei¬ 
nen Konkurrenten aufzuweisen hat. Turbo Pascal ist schnell, und es ist kom¬ 
fortabel. 

Hervorstechendes Merkmal beim Arbeiten mit Turbo Pascal sind die kurzen 
Zykluszeiten bei der Programmentwicklung. Das bedeutet, daß einerseits der 
Compiler die Programmtexte recht schnell übersetzt und andererseits wenig 
Zeit benötigt wird, um bei Auftreten eines Fehlers wieder in den Programm¬ 
text zu kommen, damit der Fehler korrigiert werden kann. Beim Program¬ 
mieren schleichen sich recht häufig Fehler ein, so daß der Anwender die 
Schnelligkeit des Turbo-Systems schätzen lernt. Allerdings sollte der Anfän¬ 
ger auch davor gewarnt werden, sogenannte Instant-Programme ohne vor¬ 
herige Planung am Bildschirm zu entwickeln. 

Gerade bei einem schnellen System ist die Versuchung groß, etwas schlampig 
zu programmieren und z.B. fehlende Deklarationen erst später einzufügen. 

Turbo Pascal ist auch in der Ausführung von Programmen recht flott, und 
zwar deshalb, weil es direkt in die Maschinensprache des entsprechenden 
Prozessors übersetzt wird und nicht in einen Zwischencode. 

Die Arbeit des Programmersteliens und Übersetzens wird auch durch keinen 
Linker beeinträchtigt: Die übersetzten Programme sind sofort lauffähig. 

Mit Turbo Pascal steht dem Benutzer ein sehr komfortables Programmier¬ 
werkzeug zur Verfügung. Es umfaßt deutlich mehr Standardfunktionen und 
-Prozeduren als Standard-Pascal und die meisten anderen Dialekte. Außerdem 
arbeitet es mit einer großen Rechengenauigkeit und kennt einige zusätzliche 
Typen und Konstanten. 

Turbo Pascal ist auf allen CP/M-Rechnem lauffähig sowie unter MS-DOS. Da¬ 
her sind die Programme weitgehend ohne Veränderungen übertragbar, und 
Besonderheiten des Rechners spielen keine Rolle. 
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Allein kleine Unterschiede zwischen 8- und 16-Bit-Rechnern machen sich in 
den Sprachteilen bemerkbar, die besondere Kontakte zur tatsächlichen Ma¬ 
schine hersteilen. 

Das vorliegende Buch behandelt die Turbo Pascal-Version auf dem Schneider 
CPC und geht auf einige Besonderheiten in der Arbeit mit diesem Rechner ein. 

Alle Programme sind auf einem Schneider CPC 6128 unter CP/M getestet 
worden und damit lauffähig. 

Das Buch ist als umfassende Programmieranleitung geschrieben und bietet ei¬ 
nen Einstieg in Turbo Pascal für Anfänger wie Umsteiger. Es bleibt jedoch 
nicht auf der Anfängerebene, sondern behandelt alle Themen. Es ist bewußt 
enzyklopädisch gehalten und der Sprache Pascal gemäß formal aufgebaut, um 
auch dem fortgeschrittenen Benutzer einen raschen Überblick und ein schnel¬ 
les Finden bestimmter Themen zu ermöglichen. 

Ein besonderes Kapitel ist der Programmierhilfe Turbo Toolkit gewidmet, die 
vom gleichen Hersteller angeboten wird. Da davon auszugehen ist, daß der 
Turbo Pascal-Benutzer dieses komfortable und leistungsfähige Software- 
Werkzeug früher oder später benutzen wird, soll es nicht unerwähnt bleiben. 

Der Anhang des Buches stellt eine kurze Übersicht über die wichtigsten Be¬ 
griffe, Befehle und Zusammenhänge dar, die der Benutzer dieser Sprache 
ständig braucht. 

Ich möchte an dieser Stelle dem Lektorat des Verlages und insbesondere Frau 
Wentges und Herrn Dr. Hesselmann für die Überarbeitung des Buches danken. 


Unna, im Juni 1986 


Karl-Hermann Rollke 
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Kapitel 1 

Einführung 


1.1 Turbo Pascal im CP/M-Betriebssystem auf dem Schneider CPC 

Bevor wir uns näher mit dem Turbo Pascal beschäftigen, müssen wir einige 
grundlegende Dinge über das CP/M-Betriebssystem wissen. Hier sollen nur 
die wichtigsten Operationen in diesem Betriebssystem kurz beschrieben wer¬ 
den, damit der Einsteiger sie benutzen kann. Weitere Informationen sind dem 
Benutzer-Handbuch (im Kapitel CP/M) oder der einschlägigen Literatur zu 
entnehmen. 

Hinweis: Turbo Pascal ist zwar lauffähig auf dem Schneider CPC 464/664. Je¬ 
doch hat der Benutzer nur einen Speicher von ca. 3 KByte zur Verfügung. Das 
ist für eine effektive Programmierung recht wenig. Daher wird im vorliegen¬ 
den Buch nur auf den Schneider CPC 6128 eingegangen. Auf die Hinweise zur 
Arbeit mit dem Schneider CPC 464/664 im Turbo Pascal-Handbuch ist zu ach¬ 
ten. Benutzt wurde CP/M Plus. 

Der Rechner wird eingeschaltet und meldet sich mit dem Copywrite und 
Ready. Dann wird die CP/M-Systemdiskette eingelegt und |CPM Return (d.h. 
das Zeichen |, die Buchstaben CPM und die Return- Taste) eingegeben. 

Nun lädt der Rechner das CP/M-Betriebssystem. Dieser Vorgang wird "Boo¬ 
ten" genannt. Nach dem Booten erscheint das Copyright und ein ">"-Zeichen 
als Promptsymbol. 

Es ist nützlich, die folgenden Befehle zu kennen: 

- DIR Return: Listet das Inhaltsverzeichnis der Diskette (Directory) auf. 

- A: Return oder B: Return: Schaltet auf ein anderes Laufwerk um. Die Lauf¬ 
werke haben die Namen A: und B:. 

- ERA <Filename>: Löscht eine Datei (File) mit angegebenem Namen auf der 
Diskette. 

- REN <Filename neu> = <Filename alt>: Benennt ein File um. 

Auf der CP/M-Systemdiskette befinden sich zwei unbedingt notwendige Pro¬ 
gramme, die wir sofort benutzen sollten. Damit die kostbare Turbo-System- 
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diskette nicht versehentlich gelöscht oder beschädigt wird, legen wir als er¬ 
stes eine Kopie an und bewahren das Original danach sicher auf. Dazu müssen 
wir zunächst eine Diskette formatieren. 

Wir legen die CP/M-Systemdiskette ins Laufwerk und tippen: 

- DISCKIT3 Return 

Damit wird ein Programm geladen, das allerlei Diskettenhilfsmittel enthält. 

Zuerst wählen wir mit der Funktionstaste F4 die Möglichkeit FORMAT zum 
Formatieren einer Diskette. Danach wählen wir mit F9 SYSTEM FORMAT. 
Dann richten wir uns nach den Anweisungen des Rechners (zuerst die System¬ 
diskette einlegen und eine Taste drücken; dann Systemdiskette herausnehmen 
und eine Taste drücken. Danach zu formatierende Diskette einlegen und mit Y 
antworten). Zum Formatieren mehrerer Disketten kann der Vorgang wieder¬ 
holt werden. 

Zum Kopieren der Turbo-Diskette wählen wir aus dem DISCKIT3- 
Programm mit der Funktionstaste F7 die Möglichkeit COPY. Mit Y wird der 
Kopiervorgang gestartet. Dann ist den Anweisungen des Rechners zu folgen, 
d.h. zu lesende (READ) Diskette einlegen und Taste drücken bzw. zu 
schreibende (WRITE) Diskette einlegen und Taste drücken. Für einen Kopier¬ 
vorgang hat dies mehrfach zu erfolgen, wenn nur ein Laufwerk zur Verfü¬ 
gung steht. 

Hinweis: Öffnen Sie vor dem Kopieren die Schreibschutzlöcher der Original¬ 
diskette, um sie vor versehentlichem Überschreiben zu schützen! 

Sollen nur bestimmte Files (Programme, Daten usw.) kopiert werden, so be¬ 
nutzen wir das PIP-Programm auf der CP/M-Systemdiskette. 

- PIP Return: Bringt uns in das File-Kopierprogramm. Ein anderes Prompt¬ 
zeichen (*) erscheint auf dem Bildschirm. Mit folgender Zeile können wir 
nun ein File von einem Laufwerk auf ein anderes kopieren: B:<File neu> 
=A:<file alt>Return. So wird ein File vom Laufwerk A: mit dem Namen 
<File alt> auf die Diskette im Laufwerk B: mit dem Namen <File neu> ko¬ 
piert. Es gibt auch Abkürzungen für die Filenamen, auf die hier aber nicht 
eingegangen werden soll (siehe CP/M-Handbuch). 

Das PIP-Programm kopieren wir z.B. von Laufwerk A: nach Laufwerk B: 
mit der Anweisung B:PIP.COM=A:PIP.COM Return. 

Beendet wird PIP einfach mit Return. 
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Hinweis für das Kopieren mit einem Laufwerk: Wird nun ein Laufwerk 
benutzt, kann dieses die Laufwerke A: und B: simulieren. Zum Kopieren von 
TURBO.COM schreiben wir z.B. 

B :=A: TURBO. COM Return 

So wird das Programm namens TURBO.COM mit gleichem Namen kopiert. 
Nachdem der Rechner gelesen hat, verlangt er, daß die Diskette B: (also die 
Kopie) eingelegt wird. 

Nun zu den Arten der Dateien (Files), mit denen wir es in Verbindung mit 
Turbo Pascal zu tun haben. Alle Files enden mit einem Anhängsel (Suffix), be¬ 
stehend aus (meistens) 3 Zeichen, angeführt durch einen Punkt. 

Die wichtigsten Typen sind: 

- .COM: Lauffähiges Programm in Maschinencode 

- .PAS : Pascal-Programmtext (Textfile) 

- .BAK : Sicherheitskopie des Workfiles 

- .OVR: Overlay 

- .DTA: Daten 

Oft ist auf den Disketten ein File mit dem Namen READ.ME zu finden. Dieses 
ist genauso zu behandeln, wie es heißt. Lesen Sie es. Dazu tippen Sie einfach 

TYPE READ . ME Return 

und dieser Text erscheint auf dem Bildschirm. 

Kommen wir zum eigentlichen Thema: Turbo Pascal. Nachdem wir eine Si¬ 
cherheitskopie der Originaldiskette gemacht haben, legen wir das Original si¬ 
cher weg und legen unter CP/M die kopierte Turbo-Systemdiskette ein. Mit 
TURBO Return wählen wir das Turbo-System. 

Auf dem Bildschirm erscheint ein Titel mit dem Copyright und die Frage 
Include error messages (Y/N)? 

In der Regel werden wir hier Y tippen, um die Fehlermeldungen im Klartext 
statt als Fehlercodes zu bekommen. (Mit N wird auf die Fehlermeldungen im 
Klartext zugunsten von Fehlemummer verzichtet, dafür haben wir mehr Spei¬ 
cherplatz zur Verfügung - experimentieren Sie!) 


Danach erscheint ein Menü: 
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Logged drive: A 

Work file: 

Main file: 

Edit Compile Run Save 

eXecute Dir Quit Compiler Options 

Text: 0 bytes 

Free: 28778 bytes 

Im folgenden Kapitel werden die Möglichkeiten des Menüs näher betrachtet. 
Hier wollen wir uns nur einmal anschauen, was alles zum Turbo-System an 
Files dazugehört. Mit D für Dir erhalten wir das Inhaltsverzeichnis der Dis¬ 
kette. 


Folgende Files sollte die Diskette enthalten: 


- TURBO.COM 

- TURBO.OVR 

- TURBO.MSG 

- TLIST.COM 

- TINST.COM 

- TINST.DTA 

- evtl. READ.ME 

- <Name>.PAS 


Das Turbo Pascal. 

Overlays, die nötig sind, wenn von Turbo aus ein .COM- 
File gestartet werden soll. 

Das Textfile, das die Fehlermeldungen enthält. 

Ein Programm zum eleganten Ausdrucken von Turbo- 
Programmtexten. 

Ein Installationsprogramm, um Turbo an den jeweiligen 
Rechner anzupassen (siehe Handbuch). 

Daten zu TINST.COM. 

Hinweise zum System. 

Eventuell vorhandene Pascal-Programme. 


Welche Teile umfaßt das Turbo Pascal-System? 

- Editor = Zum Schreiben und Verändern von Texten (insbeson¬ 

dere Programmtexten). 

- Compiler = Zum Übersetzen der Programmtexte in lauffähige Pro¬ 

gramme (in Maschinensprache). 


Einen mit UCSD vergleichbaren Filer (zum Behandeln von Dateien und Dis¬ 
ketten) stellt das‘CP/M-Betriebssystem selbst dar. 


Hinweis: Sollte beim Start des Turbo-Systems nicht der Bildschirm gelöscht 
und von Turbo neu aufgebaut werden bzw. sollte sich der Rechner etwas 
merkwürdig verhalten, ist Turbo evtl, nicht für den Schneider CPC 6128 in¬ 
stalliert. Dann ist wie folgt zu verfahren: TINST Return (von CP/M aus) 
wählen. 
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Mit S die Screen-Installadon (Bildschirminstallation) wählen und aus dem Me¬ 
nü den Schneider CPC 6128 auswählen. Auf die Frage nach dem Taktzyklus 
des Prozessors mit Return antworten. Dann mit Q für Quit die Installation ver¬ 
lassen. 

1.2 Das Menü 

Mit TURBO Return wählen wir das Turbo-System. Auf dem Bildschirm er¬ 
scheint das Menü. Die Auswahlmöglichkeiten des Menüs werden durch ein¬ 
faches Tippen der entsprechenden Buchstabentaste angewählt. Die Buchstaben, 
die das Wort abkürzen, sind in der Bildschirmdarstellung hervorgehoben. 

Logged drive: A 

Work file: 

Main file: 

Edit Compile Run Save 

eXecute Dir Quit Compiler Options 

Text: 0 bytes 

Free: 28778 bytes 

Die einzelnen Zeilen des Menüs haben folgende Bedeutung: 

- Logged drive: A 

Hier wird angegeben, auf welches Laufwerk standardmäßig zugegriffen 
werden soll. Durch Drücken der L-Taste kann ein anderes Laufwerk ge¬ 
wählt werden. 

- Work file: 

In dieser Zeile wird angezeigt, welches Workfile gerade bearbeitet wird, 
d.h. mit welchem Programmtext der Benutzer beschäftigt ist. Durch Drük- 
ken der W-Taste kann der Benutzer ein Workfile in folgender Form defi¬ 
nieren: 

<Filename>.<Typ> 

Beispiel: TEST.PAS 

Es kann auch .PAS weggelassen werden. In diesem Fall wird es vom System 
angefügt. Wird jedoch z.B. TEST.BAK gewählt, so wird nichts angefügt. 

Ist das Workfile nicht auf der Diskette, wird ein neues File erzeugt. Wenn 
ein Workfile im Rechner ist und der Benutzer einen neuen Namen als Work¬ 
file definiert, wird gefragt, ob das Workfile erst gespeichert werden soll 
(Antwort Y oder N). 


I 
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- Main file: 

Wenn neben einem Workfile noch ein Mainfile genannt wird, ist es dieser 
Text, der vom Compiler übersetzt wird (andernfalls das Workfile). So kann 
ein Programmtext benannt werden, der z.B. auf der Diskette steht und das 
zu übersetzende Hauptprogramm enthält, während nebenher ein anderer 
Text (der z.B. Textteile enthält, die eingefügt werden sollen) im Texteditor 
bearbeitet wird. 

- Edit 

Mit E wird der Editor aufgerufen (siehe folgendes Kapitel). 

- Compile 

Mit C wird das Mainfile (oder das Workfile, wenn kein Mainfile existiert) in 
die Z80-Maschinensprache übersetzt. Die Art der Übersetzung hängt von 
den Compiler-Optionen ab. 

- Compiler Options 

Mit 0 lassen sich Compiler-Optionen wählen. 

- Memory 

Durch Drücken der M-Taste (das ist auch die Standardeinstellung) wird 
der Compiler veranlaßt, den Text so zu übersetzen, daß das lauffähige 
Programm im Rechnerspeicher steht. 

- Com-file 

Mit der C-Taste können wir den Compiler veranlassen, das lauffähige 
Programm als .COM-File (z.B. TEST.COM) auf die Diskette zu schrei¬ 
ben. Abhängig vom Rechnertyp können noch Angaben über die genaue 
Plazierung des Maschinenprogramms im Speicher gemacht werden (siehe 
Handbuch). 

- cHn-file 

Mit der H-Taste sorgen wir dafür, daß das Programm so übersetzt wird, 
daß es nur von einem anderen Pascal-Programm aufgerufen werden kann 
(weil Teile des Pascal-Systems fehlen). Der Name wird durch .CHN (z.B. 
TEST.CHN) kenntlich gemacht (siehe ebenfalls Handbuch). 

- Run 

Mit der R-Taste lassen wir den Rechner ein Programm abarbeiten. Entwe¬ 
der wird das Programm im Speicher oder (wenn die Compiler-Option C ge¬ 
wählt wurde) das entsprechende .COM-File abgearbeitet. Ist das Programm 
noch nicht übersetzt, wird dies erst getan. 

- Save 

Durch Drücken der S-Taste können wir das Workfile unter dem angegebe- 
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nen Namen abspeichem. Es bleibt eine Kopie der letzten Version des Work- 
files auf der Diskette mit dem Kürzel .BAK (z.B. TEST.BAK). 

- eXecute 

Mit der X-Taste können wir ein anderes Programm aufrufen. 


-Dir 

Mit D wird das Inhaltsverzeichnis der angewählten Diskette ausgegeben. 

- Quit 

Mit Q wird das Turbo-System verlassen (d.h. zurück zum CP/M-Betriebs- 
sy stem). 

1.3 Der Turbo Editor 

Der Turbo Editor ist ein Texteditor (verwandt mit dem bekannten Wordstar), 
mit dem beliebige Texte bearbeitet werden können. Insbesondere werden na¬ 
türliche Programmtexte damit bearbeitet. Für WordStar-Benutzer entfällt die 
Einarbeitung völlig; sie können diesen Editor (fast) wie gewohnt benutzen. 

Neulinge auf diesem Gebiet sollten erst einmal zur Übung mit dem Editor 
spielen, d.h. neue Texte erstellen und ändern sowie schon bestehende Texte än¬ 
dern und in den Texten herumspringen. 

Der Editor wird mit der Taste E aus dem Menü gewählt und durch Eingabe 
der Tastenfolge Ctrl-K Ctrl-D verlassen. 

Hinweis: Die Bezeichnung Ctrl-K bedeutet, daß die Taste K zusammen mit der 
Ctrl-Taste gedrückt wird. 

Die Editorbefehle lassen sich in folgende Gruppen aufteilen: 

- Kontrollbefehle 

- Cursorbewegungsbefehle 

- Befehle zum Einfügen und Löschen 

- Blockbefehle 

- Verschiedenes 

Einige der folgenden Befehle sind beim Schneider CPC zusätzlich auf Sonder¬ 
tasten gelegt. 

1 . Kontrollbefehle 

- Beenden des Editors - [Ctrl-K/Ctrl-D] 
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- Einfügen/Überschreiben - [Ctrl-V] (oder COPY-Taste) 

Schaltet hin und her zwischen Einfügen an der Cursorposition und Über¬ 
schreiben an der Cursorposition. 

- Automatischer Tabulator - [Ctrl-Q/Ctrl-I] 

Schaltet hin und her zwischen automatischem Tabulator (d.h. Sprung an die 
Spaltenposition in der folgenden Zeile, an der die aktuelle Zeile beginnt) und 
Zeilenanfang am linken Rand. 

2. Cursorbefehle 

- Ein Zeichen nach links - [Ctrl-S] (oder Pfeil links) 

- Ein Zeichen nach rechts - [Ctrl-D] (oder Pfeil rechts) 

- Ein Zeichen nach oben - [Ctrl-E] (oder Pfeil oben) 

- Ein Zeichen nach unten - [Ctrl-X] (oder Pfeil unten) 

Hinweis: Die Cursortasten sind wie folgt angeordnet: 



E_ 


s 


151 (leicht zu merken) 


“x 



Neben diesen Zeichen sitzen die Zeichen zur wortweisen Rechts-Links-Bewe- 
gung und seitenweisen Auf-/Abbewegung. 


- Ein Wort nach links - 

- Ein Wort nach rechts - 

- Eine Seite nach oben - 

- Eine Seite nach unten - 


[Ctrl-A] (oder Ctrl Pfeil links) 
[Ctrl-F] (oder Ctrl Pfeil rechts) 
[Ctrl-R] (oder Ctrl Pfeil oben) 
[Ctrl-C] (oder Ctrl Pfeil unten) 


Der ganze Bildschirm kann verschoben werden, ohne die Cursorposition zu 
ändern: 

- Bildschirm eine Zeile nach oben - [Ctrl-W] (oder Shift Pfeil oben) 

- Bildschirm eine Zeile nach unten - [Ctrl-Z] (oder Shift Pfeil unten) 

Finden bestimmter Positionen im Text: 

- Cursor in die oberste Bildschirmzeile - [Ctrl-Q/Ctrl-E] 

- Cursor in die unterste Bildschirmzeile - [Ctrl-Q/Ctrl-X] 

- Cursor an Textanfang - [Ctrl-Q/Ctrl-R] 

- Cursor an Textende - [Ctrl-Q/Ctrl-C] 

- Cursor an letzte Cursorposition - [Ctrl-Q/Ctrl-P] 
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3. Befehle zum Einfügen und Löschen 


- Löschen eines Zeichens links vom Cursor 

- Löschen eines Zeichens unter dem Cursor 

- Löschen eines Wortes rechts vom Cursor 

- Löschen einer Zeile 

- Löschen bis Zeilenende 

- Einfügen einer Zeile 


[DEL]-Taste 

[Ctrl-G] 

[Ctrl-T] 

[Ctrl-Y] 

[Ctrl-Q/Ctrl-Y] 

[Ctrl-N] 


4. Blockbefehle 

Unter einem Block ist ein zusammenhängender Text zu verstehen, der durch 
eine Anfangs- und Endmarkierung (Blockmarker) gekennzeichnet ist.Dieser 
Block kann bewegt, gelöscht oder von und nach Disketten kopiert werden. 

- Anfangsmarkierüng - [Ctrl-K/Ctrl-B] 

- Endmarkierung - [Ctrl-K/Ctrl-K] 

- Ein einzelnes Wort markieren - [Ctrl-K/Ctrl-T] 

- Umschalten Blockanzeigen - [Ctrl-K/Ctrl-H] 

(Schaltet zwischen normaler Darstellung und hervorgehobener Bildschirm¬ 
darstellung für den Block.) 

- Vorher markierter Block soll 

an Cursorposition kopiert werden - [Ctrl-K/Ctrl-C] 

- Vorher markierter Block soll 

zu Cursorposition bewegt werden - [Ctrl-K/Ctrl-V] 

- Löschen eines Blocks - [Ctrl-K/Ctrl-Y] 

- Block von Diskette lesen - [Ctrl-K/Ctrl-R] 

- Block auf Diskette schreiben - [Ctrl-K/Ctrl-W] 


5 . Verschiedenes 

- Tabulator an die Spalte des letzten Zeilenanfang - [Ctrl-I] 

- Ursprünglicher Inhalt der aktuellen Zeile - [Ctrl-Q/Ctrl-L] 

- Abbruch eines Kommandos - [Ctrl-U] 

- Eingabe eines Ctrl-Zeichens in den Text durch Voranstellen von [Ctrl-P] 

- Finden eines Strings bis 30 Zeichen Länge - [Ctrl-Q/Ctrl-F] 

Der zu findende String wird eingegeben und mit <Retum> abgeschlossen 
(Ctrl-Zeichen mit Ctrl-P einfügen). 

Dann wird nach Optionen gefragt: 

- B: Rückwärts suchen ab Cursorposition (sonst vorwärts). 

- G: Global suchen (d.h. im ganzen Text). 

- <Zahl>: Gibt an, das wievielte Auftreten des Textes gefunden werden 
soll. 
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- U: Groß-/Kleinschreibung ignorieren. 

- W: Nur ganze Wörter finden (sonst auch Auftreten des Textteils in an¬ 
deren Texten). 

- Finden und Ersetzen - [Ctrl-Q/Ctrl-A] 

Wie finden. Mit zusätzlicher Angabe des Ersatztextes. Optionen wie bei Fin¬ 
den. Zusätzlich: 

- <Zahl>: Anzahl der zu ersetzenden Textmuster. 

- N: Ersetzen ohne Nachfrage (Y/N). 

- Letztes Finden wiederholen - [Ctrl-L] 

1.4 Ein einfaches Programm - der Compiler 

Wir wollen nun ein einfaches Programm schreiben und übersetzen sowie aus¬ 
führen lassen, um zu erlernen, wie das Turbo Pascal-System zu benutzen ist. 

Das Programm begrüßt den Benutzer und gibt ihm an, wieviel Speicherplatz 
noch im Rechner vorhanden ist. MEMAVAIL ergibt unter CP/M den freien 
Speicher in Byte (bei Werten über 32767 ein negativer Wert - in diesem Fall 
ist 65536.0 zu addieren). 

Nennen wir zuerst das Workfile durch Drücken der Taste W aus dem Menü: 
SPEICHER. Dann wählen wir den Editor (mit E aus dem Menü). Nun tippen 
wir den folgenden Text ein (jede Zeile wird mit Return abgeschlossen. Einge¬ 
rückt wird mit der Leertaste, ausgerückt mit der BS- Taste oder mit Pfeil- 
Links ). 

PROGRAM Speicher; 

VAR Mem : REAL; 

BEGIN 

CLRSCR; 

WRITELN ('Guten Tag’); 

WRITELN; 

WRITELN ('Der freie Speicher betraegt: '); 

Mem := MEMAVAIL; 

IF Mem < 0 THEN Mem := Mem + 65536.0; 

WRITELN (Mem : 5 : 0); 

WRITELN; 

WRITELN ('Ende mit <Return> '); 

READLN 

END. 

Nachdem der Text eingegeben ist, verlassen wir den Editor mit Ctrl-K/Ctrl-D. 
Mit S speichern wir dieses Programm erst einmal ab. Nun gibt es zwei Mög¬ 
lichkeiten, das Programm auszuführen: 
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1. Mit R wird das Programm in den Rechnerspeicher übersetzt und ausge¬ 
führt. 

2. Mit O wird die Compiler-Option COM gewählt, dann das Compiler-Op- 
tion-Menü verlassen und mit C das Programm auf die Diskette übersetzt. 
Nun wird das Turbo-System (mit Q) verlassen und vom CP/M aus durch 
Eingabe des Namens SPEICHER das Programm (SPEICHER.COM) abge¬ 
arbeitet. 

Mit Version 2 ist offenbar der zur Verfügung stehende freie Speicher erheb¬ 
lich größer, weil auch der Speicher mit zu nutzen ist, den das Turbo-System in 
Version 1 einnimmt. 

Wenn Fehler auftreten 

Bei der Eingabe eines Programms mit dem Editor können Fehler auftreten. 
Zwei Arten von Fehlem treten relativ häufig auf: Syntax-Fehler (d.h. verges¬ 
senes Semikolon, falsch geschriebene reservierte Wörter usw.) oder Fehler im 
logischen Aufbau des Programms (z.B. Benutzung einer Variablen, die nicht 
erklärt wurde). 

Beim Übersetzen des Programms merkt und meldet der Compiler solche Feh¬ 
ler. Durch Drücken der ESC-Taste gelangen wir dann in den Editor zurück 
und können den Fehler korrigieren. 

Weiterhin können Fehler bei der Ausführung des Programms auftreten. So 
könnte es z.B. passieren, daß Variablen derartige Ergebnisse bekommen, daß 
durch Null dividiert wird. Dies ist sicher nicht korrekt und führt zu einem 
Programmabbruch. Vom System wird dann die Speicherstelle angegeben, bei 
der der Abbruch auftrat, und im Programmtext nach der fehlerhaften Stelle 
gesucht. Wieder können wir durch Drücken der £SC-Taste in den Editor zu¬ 
rückgehen und den Fehler korrigieren. 
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Kapitel 2 

Pascal-Grundbegriffe 


2.1 Aufbau eines Programms 

Man hört häufig, daß Pascal eine strukturierte Programmiersprache sei. Was 
ist damit gemeint? Das ganze Pascal-Programm hat eine bestimmte Struktur, 
auf die wir gleich zu sprechen kommen. Außerdem hat ein jeder Teil des Pro¬ 
gramms eine sehr ähnliche Struktur. Die Strukturen, um die es sich hier han¬ 
delt, werden oft Blöcke genannt und sind so geartet, daß sie eine recht einfache 
Lösung eines Programmierproblems zulassen. 

Wir teilen das Programm in drei große Abschnitte ein: 

1. Programmkopf 

2. Deklarationsteil (mit Prozeduren/Funktionen) 

3. Hauptprogramm 

Zu 1.: Der Programmkopf besteht aus dem reservierten Wort PROGRAM und 
dem Programmnamen. 

Zu 2.: Hier werden Konstanten, Datentypen und Variablen vereinbart, die im 
Programm Vorkommen und gebraucht werden. Weiterhin folgen alle Proze¬ 
duren und Funktionen des Programms. Prozeduren sind Unterprogramme, 
die vom Hauptprogramm aufgerufen und dann abgearbeitet werden. Die Pro¬ 
zeduren haben die gleiche Form wie ein Hauptprogramm selbst, d.h. sie beste¬ 
hen aus dem Prozedurkopf mit Deklarationsteil , evtl, aus weiteren Prozeduren 
und dem Prozedurrumpf mit den Befehlen zwischen BEGIN und END. Außer 
den Prozeduren können noch Funktionen im Programm enthalten sein, die 
sich etwas in Form und Gebrauch von Prozeduren unterscheiden. 

Besonderheiten von Turbo Pascal: Alle Teile des Deklarationsteils können 
mehrfach auftreten (also auch Typ-, Variablen- und Konstantendeklaratio¬ 
nen), und ihre Reihenfolge ist beliebig. Allerdings müssen Dinge, die benutzt 
werden sollen, vorher deklariert worden sein. 

Zu 3.: Das Hauptprogramm fängt mit BEGIN an und hört mit END auf. Es be¬ 
steht aus einzelnen Anweisungen und Blöcken von Anweisungen, die jeweils 
durch BEGIN und END zusammengehalten werden. 
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Merke: Kommentar wird in geschweiften Klammem geschrieben. Da viele 
Rechner diese Zeichen nicht darstellen können, wird oftmals als Ersatzzeichen 
(* Kommentar *) verwendet. 

In manchen Programmiersprachen wird die Reihenfolge der Befehle durch 
Zeilennummem (z.B. in BASIC) oder Sprünge zu bestimmten Zeilennum¬ 
mern bestimmt. In Pascal ist das anders. Hier werden Befehle immer in der be¬ 
schriebenen Reihenfolge abgearbeitet - für BASIC-Anwender erst ein wenig 
unverständlich. 

Hinweis: Auch in Pascal gibt es den Sprungbefehl GOTO. Er kann aber in fast 
allen Fällen vermieden und durch andere Strukturen ersetzt werden. In 
Kapitel 6.1 wird kurz auf GOTO eingegangen. 

1. Alle Pascal-Befehle werden durch ein Semikolon (;) voneinander getrennt. 

2. Pascal-Befehle werden immer in der Reihenfolge abgearbeitet, wie sie auf- 
treten. 

3. Die Anweisungen des Programms werden zwischen BEGIN und END ge¬ 
schachtelt. 

4. Nach BEGIN steht kein Zeichen! 

5. Vor END kann ein Semikolon stehen, sollte jedoch nicht. (Nur ein Semiko¬ 
lon allein erzeugt nämlich eine leere Anweisung.) 

6. Nach END steht ein Punkt, wenn es das Ende des Hauptprogramms darstellt, 
sonst ein Semikolon. 

Ein einfaches Programm, das nur aus einem Hauptprogramm besteht, d.h. ein 
Programm ohne Unterprogramme (Prozeduren/Funktionen), hat demnach 
folgende Form: 

PROGRAM programmname; 

CONST 
TYPE...; 

VAR 

BEGIN 


Anweisungen (durch Semikolon getrennt) 

END. 
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Ein Programm mit Prozeduren und Funktionen hat die Form: 

PROGRAM programmname; 

CONST 
TYPE 
VAR. . . ; 

PROCEDURE prozedurname; 

CONST 
VAR. . . ; 

BEGIN 

END; 

PROCEDURE prozedurname (variablendeklaration); 

CONST...; 

VAR 

BEGIN 

END; 

PROCEDURE prozedurname (VAR variablendeklaration); 
CONST 
VAR 

BEGIN 

END; 

PROCEDURE prozedurname (variablen, VAR variablen); 
CONST...; 

VAR 

BEGIN 

END; 

FUNCTION funktionsname (variablendeklaration) : typ; 
CONST 
VAR 
BEGIN 


END; 

BEGIN { Hauptprogramm } 
END. 


2.2 Ein-und Ausgabe 

Nun wird es aber bezüglich der Programmierung in Pascal ernst. Wir wollen, 
nachdem einige einfache Befehle geklärt sind, ein weiteres kleines Programm 
schreiben. 
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Um mit dem Computer über ein Programm in Kontakt treten zu können, brau¬ 
chen wir sogenannte Ein- und Ausgabebefehle (die Ein- und Ausgabebefehle 
beziehen sich vorerst nur auf Eingaben mit der Tastatur und Ausgaben auf 
dem Bildschirm): 

WRITE und WRITELN: 

Diese Befehle sind Ausgabebefehle, die übersetzt soviel heißen wie "schreibe". 
WRITE wird immer dann gebraucht, wenn nach dem geschriebenen Wort 
oder der geschriebenen Zahl in der gleichen Zeile weitergeschrieben werden 
soll. 

Wenn nach der Ausgabe ein Zeilenvorschub ("Carriage Return" oder kurz 
CR) folgen soll, d.h., wenn das Nächstgeschriebene in einer neuen Zeile anfan¬ 
gen soll, so wird WRITELN (sprich wie "writeline") verwendet. 

Steht WRITELN allein, dann wird nur eine Leerzeile geschrieben. Ansonsten 
folgen den Befehlen runde Klammem, die das zu Schreibende umschließen. 

Beispiele: 

WRITELN (Wert) schreibt den Dateninhalt von "Wert". 

WRITELN (Wertl, Wert2, Wert3) wie oben, aber für drei Daten. 

WRITELN (’Dies ist ein Beispiel’) schreibt den Satz "Dies ist ein Beispiel" 
auf den Bildschirm. 

Wenn mehrere Daten, Variablen, Wörter, Sätze usw. ausgegeben werden sol¬ 
len, dann werden sie in der Klammer jeweils durch ein Komma voneinander 
getrennt. 

Wenn Text in der Klammer steht, so muß er stets durch Hochkomma ange¬ 
führt und beendet werden. (Das Hochkomma wird natürlich später nicht mit 
ausgegeben!) 

READ und READ LN: 

Dies sind Eingabebefehle, die übersetzt soviel wie "lies" heißen. READ/ 
READLN (sprich wie "readline") ermöglicht es, eine Zahl, ein Wort oder ein 
Zeichen einzugeben. 

Der Name der einzugebenden Variablen steht wieder in einer Klammer hinter 
dem READ-/READLN-Befehl. Sollten mehrere Daten mit einem Befehl ein¬ 
gegeben werden, so sind sie in der Klammer durch Kommata zu trennen - 
hierbei aber Vorsicht: Mehrere einzugebende Daten in einem READLN-Be- 
fehl könnten später im Programmlauf seltsame Effekte ergeben. 
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Die Eingabe wird mit der Return-Taste abgeschlossen. Wie bei den Ausgabe¬ 
befehlen bewirkt READLN im Gegensatz zu READ, daß nach der Eingabe ein 
Zeilenvorschub ausgeführt wird. 

Beispiel: 

READLN (Wert) übergibt der Variablen Wert eine einzugebende Zahl (vor¬ 
ausgesetzt, der Name Wert steht für eine Zahlen variable). 

Später im Programmlauf muß nach dem Eintippen der Zahl (oder des Wortes) 
die Return -Taste gedrückt werden, um dem Rechner zu signalisieren, daß die 
Eingabe beendet ist. 

Hinweis: Mit READ (KBD,<Wert>) kann ein Zeichen von der Tastatur KBD 
(Keyboard) eingegeben werden, ohne daß die Return -Taste zur Beendigung 
der Eingabe gedrückt werden muß. Das Zeichen wird dann allerdings nicht 
auf dem Bildschirm dargestellt. Hierbei handelt es sich um eine Möglichkeit, 
den Programmablauf durch einfachen Tastendruck zu steuern. 

Wir wollen nun ein kleines Programm schreiben, das einige Sätze auf unseren 
Bildschirm bringt. Gehen Sie in den Editor, und geben Sie folgenden Pro¬ 
grammtext ein: 

PROGRAM Saetze; 

BEGIN 

WRITELN ('Dies ist ein kleines Programm,'); 

WRITELN ('das ein paar Worte auf den Bildschirm'); 

WRITELN ('bringen soll.’) 

END. 

Beachten Sie: Vor dem END sollte kein Semikolon stehen, kann aber. 

Sollten Sie keine Kleinbuchstaben zur Verfügung haben, schreiben Sie einfach 
groß. Andererseits dürfen bei den meisten Systemen auch die Befehlswörter 
klein geschrieben werden - in den folgenden Programmen werden Befehls¬ 
wörter von anderem Text optisch getrennt. 

Nachdem Sie dieses Programm im Editor eingetippt haben, verlassen Sie ihn 
mit Ctrl-K/Ctrl-D. Dann rufen Sie den Compiler auf oder tippen einfach R, 
damit das Programm übersetzt und gestartet wird. 

Nun sollte der Rechner den folgenden Text auf den Bildschirm schreiben: 


Dies ist ein kleines Programm, 

das ein paar Worte auf den Bildschirm 

bringen soll. 
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Es könnte sein, daß dies nicht der einzige Text auf Ihrem Bildschirm ist, son¬ 
dern sich noch die Kommandozeile oder irgendein früher geschriebener Text 
auf dem Bildschirm befindet. 

Fügen Sie einfach nach BEGIN eine Zeile ein, die so aussieht: 

CLRSCR; 

Dieser Befehl bewirkt, daß der Bildschirm gelöscht wird (Clearscreen). 

Wenn wir die Ausgabe an einer bestimmten Stelle des Bildschirms haben wol¬ 
len, so verwenden wir 

GOTOXY(x, y); 

mit x,y als ganzzahligen Koordinaten der entsprechenden Bildschirmstelle (die 
möglichen Werte für x und y hängen natürlich vom jeweiligen Bildschirm ab). 
Die obere linke Ecke hat die Koordinate (1,1). 

Beispiel: 

PROGRAM Bildschirmtest; 

BEGIN 

GOTOXY (10,20); 

WRITELN ('Noch ein ...'); 

GOTOXY (15,30); 

WRITELN ( 'Testtext.') 

END. 

Im weiteren folgen noch einige Anmerkungen zu den Ausgabebefehlen, die Sie 
erst verwenden können, wenn sie mit Zahlen und Variablen arbeiten: 

Formatierte Ausgabe 

Wenn ganze Zahlen mit einer bestimmten Stellenzahl ausgegeben werden sol¬ 
len, so benutzt man die Form: 

WRITELN (Ganzezahl:Stellenzahl) 

Beispiel: 

WRITELN (Wertl:4, Wert2:5) bewirkt, daß Wertl mit 4 Stellen, Wert2 mit 5 
Stellen rechtsbündig ausgegeben wird. 

Sollen Dezimalzahlen mit einer bestimmten Stellenzahl und einer bestimmten 
Nachkommastellenzahl ausgegeben werden, so schreibt man: 


WRITELN (Dezzahl:Stellenzahl:Nachkomma) 
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Beispiel: 

WRITELN (Wert:7:2) bewirkt, daß Wert mit insgesamt 7 Stellen und davon 2 
Stellen hinter dem Dezimalpunkt ausgegeben wird. 

Achtung: Der Dezimalpunkt zählt bei der Stellenzahl mit! 

Noch einige Beispiele: 


Variable: 

Inhalt: 

Ausgabebefehl: 

Ausgabe: 

Wertl 

123 

WRITELN(Wertl:5) 

123 

Wert2 

12 

WRITELN(Wert2:2) 

12 

Wert3 

12.4 

WRITELN(Wert3:5:2) 

12.40 

Wert4 

12.4 

WRITELN(Wert4:7:3) 

12.400 


Sie sollten - als guter Programmierer - darauf achten, daß der Inhalt der Va¬ 
riablen die vorgegebene Stellenzahl nicht überschreitet, da die verschiedenen 
Rechner unterschiedlich darauf reagieren! 

23 Konstanten und Variablen 

PROGRAM Beispiel; 

CONST Pi = 3.1416; 

VAR Radius, Flaeche : REAL; 

BEGIN 

WRITE ('Radius: '); 

READLN (Radius); 

Flaeche := Pi * Radius * Radius; 

WRITELN (’Flaeche=',Flaeche:7:2) 

END. 

Das im letzten Abschnitt erstellte Programm bestand nur aus dem Programm¬ 
kopf und dem Hauptprogramm zwischen BEGIN und END. Es hatte noch kei¬ 
ne Konstanten und Variablen. 

Variable: Variable sind Speicherplätze im Rechner, in denen Zahlen, 

Buchstaben, Wörter und andere Objekte (die wir später 
noch kennenlemen) gespeichert werden. Eine Variable hat 
einen Namen (Variablenname), einen sogenannten Datentyp 
und einen Dateninhalt. Mit der Variablen kann genauso ge¬ 
arbeitet werden wie mit den Daten selbst. Mit einer Zahlen¬ 
variablen kann z.B. genauso gerechnet werden wie mit 
anderen Zahlen. Der Name der Variablen und ihr Typ wer¬ 
den im Deklarationsteil des Programms festgelegt. Der Da- 
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teninhalt wird der Variablen aber erst im Programm zuge¬ 
wiesen und kann jederzeit geändert werden. 

Konstante: Eine Konstante ist ähnlich der Variablen ein Speicherplatz, 

der einen Namen und einen Dateninhalt hat. Jedoch läßt sich 
der Dateninhalt der Konstanten nicht mehr im Programm 
verändern. Der Inhalt wird im Deklarationsteil festgelegt. 

Merke: Wir unterscheiden für Konstanten und Variablen: 

Name - Datentyp - Dateninhalt. 

Bei Variablen werden Namen und Datentypen im Deklarati¬ 
onsteil festgelegt und die Dateninhalte im Programm zuge¬ 
wiesen. 

Bei Konstanten werden Namen und Dateninhalte (und damit 
Datentypen) nur im Deklarationsteil festgelegt. 

Global: Konstanten und Variablen, die im Deklarationsteil des Pro¬ 

gramms festgelegt sind, heißen "global". Sie können überall 
im Programm verwendet werden (also auch in den Proze¬ 
duren und Funktionen). Später werden wir noch lokale 
Konstanten und Variablen kennenlernen, die nur in der je¬ 
weiligen Prozedur/Funktion gültig sind. 

Variablennamen: Die Variablennamen sind beliebig und können in der Regel 
bis zu 8 Zeichen enthalten. Das erste Zeichen muß ein Buch¬ 
stabe sein. Sonderzeichen, die von Pascal verwendet wer¬ 
den, sowie Namen von Pascal-Befehlen dürfen nicht ver¬ 
wendet werden (reservierte Wörter). 


Beispiele für richtige und falsche Variablen- und Konstantennamen: 


A 

Test 

x3 

la 

X-oben 


richtig 

richtig 

richtig 

falsch (1. Zeichen muß Buchstabe sein) 
falsch (keine Sonderzeichen) 


CONST: Die Deklaration der Konstanten beginnt mit dem Wort 

CONST. Danach werden, durch Semikolon getrennt, die 
Konstanten aufgeführt, indem den Konstantennamen durch 
ein Gleichheitszeichen ein Wert zugewiesen wird. 
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VAR: Die Variablendeklaration beginnt mit dem Wort VAR und 

zählt danach die Namen der Variablen und ihren Typ auf. 
Die Form der Deklaration ist die folgende: Variablenname, 
Doppelpunkt, Typ. Verschiedene Variablen gleichen Typs 
können vor dem Doppelpunkt, durch Kommata getrennt, 
aufgezählt werden. Mehrere Variablendeklarationen wer¬ 
den durch Semikolon voneinander getrennt. 

Beispiel: 

CONST Vier=4; 

Dez=5.7; 

Elf=ll; 

Neun=10; 

VAR Wert : INTEGER; 

Zalh,Volumen : REAL; 


Damit wir mit der Variablendeklaration etwas anfangen können, werden hier 
kurz die sogenannten einfachen Datentypen dargestellt (genaue Beschreibung 
folgt noch). 

Einfache Datentypen 

INTEGER: Ganze Zahlen. Der Zahlenbereich ist beschränkt auf die 

Zahlen von -32768 bis +32767. 

REAL: Dezimalzahl. Eine Dezimalzahl kann auf einem Computer 

ebenfalls nur mit einer beschränkten Genauigkeit angege¬ 
ben werden. Sollten bei sehr kleinen Zahlen die Stellen hin¬ 
ter dem Dezimalpunkt oder bei großen Zahlen die Stellen 
davor nicht ausreichen, werden die Zahlen in der Zehner¬ 
potenzschreibweise (wie beim Taschenrechner) angege¬ 
ben. 

Beispiel: 

Statt 300 000 000 000 kann 3E11 (sprich: 3 mal 10 hoch 11) 
angegeben werden. 

CHAR: Zeichen. Eine Variable dieses Typs kann ein beliebiges Zei¬ 

chen aus dem Zeichensatz des Rechners enthalten. 

Zeichenkette. Eine Zeichenkette ist eine Folge von beliebi¬ 
gen Zeichen. Ein String kann z.B. ein Wort, ein Name oder 
ein Satz sein. In der eckigen Klammer wird die maximale 
Länge des Strings angegeben. 


STRING [n]: 
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BOOLEAN: Logische Variable. Dieser Variablentyp kennt nur zwei 

mögliche Werte: Wahr und Falsch. In Pascal heißen diese 
Werte: 

TRUE -Wahr 
FALSE- Falsch 

Im Programm kann also einer Booleschen Variablen der 
Wert TRUE oder FALSE zugewiesen oder dieser Wert ab¬ 
gefragt werden. 

Nun folgt ein kleines Beispielprogramm zur Übung des Umgangs mit Kon¬ 
stanten und Variablen. 


Damit der Programmtext etwas übersichtlicher wird, rückt man für gewöhn¬ 
lich einige Textzeilen ein. Außerdem sollte man möglichst einige Kommentare 
in den Text einfügen: 


Kommentar: Kommentar läßt sich in geschweiften Klammem einfügen. 

Er wird beim Übersetzen des Programms vom Rechner 
nicht berücksichtigt. Wenn keine geschweiften Klammern 
vorhanden sind, können Ersatzzeichen verwendet werden: 
(* Kommentar *). 


PROGRAM Vartest; 

{ Ein Programm zur Demonstration einfacher Typen } 

CONST Drei=3; 

Elfkommadrei=ll.3; 

VAR Ganzl,Ganz2,Summe : INTEGER; 

Name : STRING[20]; 

BEGIN 

CLRSCR; 

{ Bildschirm 1|sehen } 


{ Eingabe von Zahlen und Worten: } 

WRITELN('Dies ist ein Testprogramm:'); 
WRITELN; 

WRITE('Geben Sie eine ganze Zahl ein: '); 
READLN(Ganzl); 

WRITELN; 

WRITE('Noch eine: ’); 

READLN(Ganz2) ; 

WRITE('Geben Sie Ihren Namen ein: '); 
READLN(Name); 

{ Ende der Eingabe } 

Summe := Ganzl + Ganz2; 
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{ Ausgabeteil: } 

CLRSCR; 

WRITELN('Lieber •,Name,' !'); 

WRITELN; 

WRITELN('Die Konstanten dieses Programmes’); 

WRITELN('sind ',Drei,' und ',Elfkommadrei); 

WRITELN; 

WRITELN('Sie haben folgende Zahlen eingegeben:'); 

WRITELN (Ganz 1, ' und ’,Ganz2); 

WRITELN('Die Summe davon ist ',Summe); 

WRITELN; 

WRITELN('...das war es.') 

END. { Programmende } 

Tippen Sie dieses Programm bitte im Editor ein, und bringen Sie es mit R zum 
Laufen. Experimentieren Sie mit verschiedenen Eingaben, und ändern Sie das 
Programm nach Ihren Wünschen noch ein wenig. Andern Sie z.B. die unbe¬ 
friedigende Ausgabe der Konstanten, indem Sie formatierte Ausgaben ver¬ 
wenden. 

Zuweisung: Wird einer Variablen ein Wert zugewiesen, so benutzen wir 

das Zuweisungszeichen :=. 

Beispiel: a:= 5; 

a:= 2 *a; 

(a erhält den doppelten Wert seines vorigen Inhalts.) 

Die Zuweisung ist logisch am besten von rechts nach links 
zu lesen. 

Gleichheit: Das Gleichheitszeichen = ist nur dann zu benutzen, wenn die 

Werte zu seinen beiden Seiten tatsächlich gleich sind (oder 
deren Gleichheit abgefragt wird). 


2.4 Reservierte Wörter und Standardbezeichner 

In der Namengebung für unsere Programme, Variablen, Prozeduren und 
Funktionen unterliegen wir einigen Beschränkungen und Vorschriften. Wir 
dürfen unter Verwendung der folgenden Zeichen 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 

abcdefghijklmnopqrstuvwxyz 

0123456789 

und _ (Unterstreichungszeichen) 
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Namen nach bestimmten Regeln, die aus den Syntaxdiagrammen zu ersehen 
sind, bilden. Wir nennen diese Namen "benutzerdefinierte Bezeichner". 

Diese dürfen jedoch nicht identisch sein mit sogenannten reservierten Wör¬ 
tern. 

Reservierte Wörter: Dies sind Wörter, die in der Programmierspra¬ 

che Pascal bestimmte Bedeutungen haben und 
dem Compiler eine korrekte Übersetzung und 
Ausführung des Programms ermöglichen. 

Selbstverständlich darf z.B. eine Variable nicht 
denselben Namen haben wie eine Pascal-Anwei¬ 
sung; denn in diesem Fall kann es sonst zu un¬ 
lösbaren Konflikten kommen. 


Folgende reservierte Wörter sind vorhanden (es ist unerheblich, ob die Wör¬ 
ter groß oder klein geschrieben werden): 


ABSOLUTE 

EXTERNAL 

NIL 

SHR 

AND 

FILE 

NOT 

STRING 

ARRAY 

FOR 

OF 

THEN 

BEGIN 

FORWARD 

OR 

TO 

CASE 

FUNCTION 

PACKED 

TYPE 

CONST 

GOTO 

PROCEDURE 

UNTIL 

DIV 

IF 

PROGRAM 

VAR 

DO 

IN 

RECORD 

WHILE 

DOWNTO 

INLINE 

REPEAT 

WITH 

ELSE 

LABEL 

SET 

XOR 

END 

MOD 

SHL 



Neben den reservierten Wörtern, die nicht verändert werden dürfen, gibt es 
noch eine Reihe von Standardbezeichnern für vordefinierte Funktionen, Pro¬ 
zeduren, Dateien und Datentypen. Diese dürfen zwar verändert werden, je¬ 
doch tut der Anfänger gut daran, diese Namen nicht als Bezeichner zu wählen, 
damit nicht versehentlich Dinge umbenannt werden, die gar nicht umbenannt 
werden sollten. 


ARCTAN 

ASSIGN 

AUX 


AUXINPTR 

AUXOUTPTR 

BLOCKREAD 


BLOCKWRITE BYTE 
BOOLEAN CHAIN 

BUFLEN CHAR 
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CHR 

FILESIZE 

CLOSE 

FILLCHAR 

CLREOL 

FLUSH 

CLRSCR 

FRAC 

CON 

getmem 

CONINPTR 

GOTOXY 

CONOUTPTR 

HEAPPTR 

CONCAT 

HI 

CONSTPTR 

IORESULT 

COPY 

INPUT 

COS 

INSLINE 

CRTEXIT 

INSERT 

CRTINIT 

INT 

DELLINE 

INTEGER 

DELAY 

KBD 

DELETE 

KEYPRESSED 

EOF 

LENGTH 

EOLN 

LN 

ERASE 

LO 

ERRORPTR 

LOWVIDEO 

EXECUTE 

LST 

EXIT 

L1STOUTPTR 

EXP 

MARK 

FALSE 

MAXINT 

FILEPOS 

MEM 


MEMAVAIL 

ROUND 

MOVE 

SEEK 

NEW 

SEEKEOF 

NORMVIDEO 

SEEKEOLN 

ODD 

SIN 

ORD 

SIZEOF 

OUTPUT 

SQR 

OVRDRIVE 

SQRT 

OVRPATH 

STR 

PARAMCOUNT 

SUCC 

PARAMSTR 

SWAP 

PI 

TEXT 

PORT 

TRM 

POS 

TRUE 

PRED 

TRUNC 

PRT 

UPCASE 

RANDOM 

USR 

RANDOMIZE 

USRINPTR 

READ 

USROUTPTR 

READLN 

VAL 

REAL 

WRITE 

RELEASE 

WRITELN 

RENAME 


RESET 


REWRITE 



Weiterhin verwendet Pascal folgende Symbole: 

( ) 

[ ] Ersatzsymbol: (. .) 

{ } Ersatzsymbol: (* *) 


+ 



= <><<= 


> >= 


$ # 


Merke: Benutzerdefinierte Bezeichner (Namen) dürfen niemals reservierten 
Wörtern gleichen! 
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2.5 Syntaxdiagramme 

Jeder Konstruktion in Pascal, sei es eine bestimmte Anweisung, eine zusam¬ 
mengehörige Folge von Anweisungen (Block) oder ein Bezeichner, liegen Re¬ 
geln zugrunde, wie sie zu bilden ist. Diese Grammatik (Syntax) ist genau fest¬ 
gelegt, so daß es niemals Mißverständnisse oder Undefinierte Situationen zwi¬ 
schen Programmierer und Computer geben kann. Alles ist eindeutig festge¬ 
legt. 

Syntaxdiagramme werden gelesen, indem man dem Pfeil folgt. Oft sind 
mehrere Wege möglich. Ein anderes Mal nur bestimmte. Achten Sie also auf 
den Pfeil. Ein Syntaxdiagramm sieht aus wie das Gleissystem einer Modell¬ 
eisenbahn. 

In den abgerundeten Kästen stehen fest definierte Symbole oder reservierte 
Wörter; in den eckigen Kästen Bezeichner, die durch weitere Syntaxdiagram¬ 
me erklärt werden. 

Einige Beispiele für grundlegende Pascal-Konstruktionen: 
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Die Syntaxdiagramme für "Ziffer" und "Buchstabe" lassen nur jeweils einen 
Weg zu, d.h. eine Ziffer (ein Buchstabe) besteht aus genau einem der aufge¬ 
führten Symbole. 

Bezeichner: 


Unterstreichung 

Im Weg durch das Syntaxdiagramm "Bezeichner" benutzen wir erst einen 
Buchstaben. Danach sind wir entweder fertig oder können noch eine(n) oder 
mehrere Ziffern (Buchstaben) oder Unterstreichungszeichen folgen lassen. 

Folgende Bezeichner sind also syntaktisch korrekt: 



Bezeichner 

BEGIN 

ANFANG 

xl 

Drei45Sechs 
Was sonst 
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Falsch dagegen sind: 

4Teile 
Was-sonst 
* Test * 


Variablendeklaration: 



Bemerkung: Typ muß natürlich als Syntaxdiagramm vorher erklärt sein (siehe 
Anhang). 

Die folgenden Variablendeklarationen sind also syntaktisch korrekt: 

VAR A, Test, Wert:INTEGER; 

oder 

VAR X:REAL; 

Y,Z:CHAR; 

Drucker: INTERACTIVE; 

Falsch dagegen sind: 

VARIABLES X, Y:STRING; 
oder 

VAR:A,B,C:CHAR; 

oder 

VAR X^REAL; 

Wir werden in den folgenden Kapiteln noch einige Syntaxdiagramme kennen¬ 
lernen. 




37 


Kapitel 3 

Einfache Datentypen 


3.1 Ganze Zahlen - INTEGER - Hexadezimal - Byte 

Wir kennen alle aus unserem Anfangsmathematikunterricht die Division gan¬ 
zer Zahlen mit Rest. Dazu wollen wir ein kleines Programm schreiben: Einge¬ 
geben werden zwei ganze Zahlen, der Dividend und der Divisor. Ausgegeben 
wird das ganzzahlige Ergebnis und der Rest. 

PROGRAM Teile; 

VAR Dividend, Divisor, Ergebnis, Rest : INTEGER; 

BEGIN 

WRITE ('Eingabe des Dividenden: '); 

READLN (Dividend); 

WRITE ('Eingabe des Divisors : ’); 

READLN (Divisor); 

Ergebnis := Dividend DIV Divisor; 

Rest := Dividend MOD Divisor; 

WRITELN(Dividend:5,':',Divisor:5,' = Ergebnis:5,'Rest',Rest:5); 
END. 

Bei einer Eingabe von 29 als Dividend und 3 als Divisor antwortet das Pro¬ 
gramm: 

29 : 3 = 9 Rest 2 

Alle Variablen des Programms sollen ganze Zahlen sein. Wir nennen diesen 
Datentyp in Pascal INTEGER. 

Eine ganze Zahl zeichnet sich dadurch aus, daß sie einen Nachfolger und einen 
Vorgänger hat, der durch Addition (Subtraktion) mit 1 ermittelt wird. 

Aufgrund der Darstellung im Rechner ist allerdings darauf hinzuweisen, daß 
es nur einen begrenzten Bereich von ganzen Zahlen gibt. Die größte ganze 
Zahl ist durch die Konstante MAXINT und die kleinste durch - MAXINT -1 
bestimmt. MAXINT ist eine vordefinierte Konstante. 


Im Turbo Pascal ist MAXINT = 2 15 - 1 = 32767. 
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Folgende Darstellungen sind gültige INTEGER-Werte: 

12345 
+ 24 
-24 
0 
3 

MAXINT 
- MAXINT 

Fehlerhafte Werte für INTEGER sind: 

2.56 (kein Dezimalpunkt erlaubt) 

3,456 (kein Komma erlaubt) 

3E20 (keine Zehnerpotenzdarstellung erlaubt) 

120340 

(größer als MAXINT) 

Nachdem wir nun wissen, welche Form INTEGER-Variablen (und natürlich 
auch Konstanten, siehe Kapitel 2.3) haben, brauchen wir noch Rechenopera¬ 
tionen: 

i+j Addition 

i-j Subtraktion 

i *j Multiplikation 

iDIVj Division für ganze Zahlen mit ganzzahligem Ergebnis. Der 
mögliche Nachkommawert wird abgeschnitten (nicht gerundet!). 
iMODj (Rest (modulo). Ergibt den Rest bei einer Division. 

Und für Anwender, die häufig mit Bitkombinationen zu rechnen haben: 

iANDj Bitweise Und-Verknüpfung zweier ganzer Zahlen. 

iORj Bitweise Oder-Verknüpfung zweier ganzer Zahlen. 

iXORj Bitweise Entweder-Oder-Verknüpfung zweier ganzer Zahlen. 

NOTi Bitweise Nicht-Operation auf einer ganzen Zahl. 

iSHLj Ganze Zahl i bitweise j Stellen nach links schieben. 

iSHRj Ganze Zahl i bitweise j Stellen nach rechts schieben. 

Beispiele: 

3+5 ergibt 8 
8-5 ergibt 3 
12-20 ergibt -8 
2+13 ergibt 26 
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7DIV2 ergibt 3 
7MOD2 ergibt 1 
13MOD5 ergibt 3 

32SHR3 ergibt 4 (denn 32 ist binär 100000, und 4 ist binär 100) 

36XOR5 ergibt 33 
255AND 15 ergibt 15 
NOT20 ergibt 11 

Wir können Zahlen miteinander vergleichen. Hierzu verwenden wir die fol¬ 
genden Vergleichsoperatoren: 

> größer als 
>= größer oder gleich 
< kleiner als 
<= kleiner oder gleich 
= gleich 
<> ungleich 

Im Zusammenhang mit dem Datentyp INTEGER sind noch einige Funktionen 
zu nennen, die verwendet werden können. Hinter einer Funktion stecken eine 
Reihe von Operationen, die mit dem Argument der Funktion (der Wert in der 
Klammer hinter dem Funktionsnamen) durchgeführt werden. Eine Funktion 
hat stets ein Ergebnis. 

Im folgenden ist i eine INTEGER-Variable und r eine Variable vom TYP 
REAL (Dezimalzahl). 

ABS(i) Absolutwert einer Zahl i. Ergebnis vom Typ INTEGER. 

Beispiel: ABS(-IO) ergibt 10 
ABS(+10) ergibt 10 

SQR(i) Quadrat einer Zahl i. Ergebnis vom Typ INTEGER. 

Beispiel: SQR(3) ergibt 9 

TRUNC(r) Ganzzahliger Anteil einer Dezimalzahl (abgeschnitten - nicht ge¬ 
rundet). Ergebnis vom Typ INTEGER. 

Beispiel: TRUNC(3.6) ergibt 3 

TRUNC(-20.2) ergibt -20 

ROUND(r) Gerundeter ganzzahliger Teil einer Dezimalzahl. Ergebnis vom 
Typ INTEGER. 

Beispiel: ROUND(3.6) ergibt 4 

Weitere Standardprozeduren und -funktionen siehe Kapitel 6. 
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Variablen vom Datentyp INTEGER können die Werte -(MAX- 
INT+1),... -3, -2, -1, 0, 1, 2, 3 ... MAXINT enthalten. 

Konstanten aus dieser Wertemenge sind ebenfalls vom Typ INTE¬ 
GER. MAXINT ist eine vordefinierte Konstante (32767). 

Die Rechenoperationen sind: + (Addition), - (Subtraktion), 

* (Multiplikation), DIV (Division), MOD (Rest). 

Binäre Operatoren sind AND, OR, XOR, NOT, SHL und SHR. 
Vergleichsoperatoren sind <, <=, >, >=, =, <>. 

Standardfunktionen mit einem Ergebnis vom Typ INTEGER sind 
ABS(i), SQR(i), TRUNC(r), ROUND(r). 

Hexadezimale Konstanten werden durch Voranstellen eines 
§-Zeichens kenntlich gemacht. 

BYTE ist ein Unterbereich von INTEGER, der die Zahlen 0 bis 255 
umfaßt. 


In Turbo Pascal gibt es noch eine weitere Darstellungsart von Konstanten vom 
Datentyp INTEGER, nämlich die hexadezimale Darstellung. Das Hexadezi¬ 
malsystem ist ein Zahlensystem mit 16 Ziffern: 

0123456789ABCDEF 

Wenn wir in diesem System zählen, so kommt nach F die Zahl 10 (dezimal 16). 
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Zahlen im Hexadezimalsystem werden in Turbo Pascal durch Voranstellen 
eines $-Zeichens kenntlich gemacht. 


$10 = 16 
$FF = 255 
$100 = 256 usw. 

Der Zahlenbereich ist dann beschränkt von $0000 bis $FFFF. 

Außerdem gibt es in Turbo Pascal einen Datentyp, der insbesondere für Ope¬ 
rationen mit Speicherstellen geeignet ist: BYTE. Der Datentyp BYTE umfaßt 
den Zahlenbereich 0..255. 


BYTE = 0..255 

Im Gegensatz zu Daten vom Typ INTEGER, die 2 Bytes Speicherplatz ein¬ 
nehmen, braucht der Typ BYTE nur 1 Byte Speicher. 

Ausgabeformate 

Wenn man folgendes deklariert: 

VARi,n:INTEGER 

ergibt sich bei: 

WRITELN(i); Ausgabe von i mit der tatsächlichen Stellenzahl von i. 
WRITELN(i:n); Ausgabe von i mit n Stellen. 

3.2 Dezimalzahlen - REAL 

Im folgenden Programm wollen wir Oberfläche und Volumen einer Kugel be¬ 
rechnen. Dazu kennen wir aus der Geometrie die Formeln 

O = 4 *k »r 2 


und 


V = 4/3 * k * r 3 

Turbo Pascal verfügt über eine vordefinierte Konstante PI, so daß die Pro¬ 
grammzeile 

CONST PI = 3.1415926536; 


entfallen kann. 
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Nun folgt unser kleines Programm: 

PROGRAM Kugel; 

VAR Radius, Oberflaeche, Volumen : REAL; 

BEGIN 

WRITE ('Eingabe des Radius: '); 

READLN (Radius); 

Oberflaeche := 4 * PI * Radius * Radius; 

Volumen := 4/3 * PI * Radius * Radius * Radius; 

WRITELN ('Die Kugel mit dem Radius ',Radius:6:2, hat*); 
WRITELN ('ein Volumen von ',Volumen:9:2); 

WRITELN ('und eine Oberflaeche von ',Oberflaeche:7:2) 
END. 

Die Variablen in diesem Programm sollen Dezimalzahlen aufnehmen. Sie sind 
vom Datentyp REAL. Auch dieser Datentyp hat einen beschränkten Wertebe¬ 
reich, der von 1E-38 bis 1E+38 geht. Die Genauigkeit beträgt insgesamt 11 
Ziffern. 

Allerdings hat auch diese Genauigkeit ihre Grenzen. So läßt sich 1/3 nicht 
durch 0.33333333333333... darstellen, da die Ziffer 3 noch unendlich oft auf¬ 
träte. Ab einer bestimmten Stelle muß also gerundet werden. Dies führt bei 
vielen Rechenschritten möglicherweise zu erheblichen Rundungsfehlern. 

Die Ergebnisse des obigen Programms werden formatiert ausgegeben. Dabei 
gibt die erste Zahl hinter dem Doppelpunkt die Größe des Feldes an, in dem 
das Ergebnis ausgegeben wird, und die zweite Zahl gibt die Anzahl der Nach¬ 
kommastellen an. 

Achtung! Um unnötigen Ärger zu vermeiden, sollten wir foglende Hinweise 
beim Arbeiten mit REAL-Veriablen beachten: 

- Niemals die Gleichheit von Rechenergebnissen abfragen, sondern überprü¬ 
fen, ob der Absolutwert der Differenz der Ergebnisse einen bestimmten 
Wert unterschreitet. 

- Die Subtraktion fast gleich großer REAL-Zahlen möglichst vermeiden. 

- Möglichst wenig Rechenschritte vorsehen, um den Rundungsfehler klein zu 
halten. 

Wie sehen nun Zahlen des Typs REAL aus? 

Möglicherweise angeführt von einem Vorzeichen, schreiben wir Ziffern vor 
und hinter dem Dezimalpunkt (wie bei Taschenrechnern). Außerdem ist die 
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Darstellung mit Zehnerpotenzen erlaubt. So kann man 3400 darstellen als 3.4 
mal 10 hoch 3; also schreiben als 3.4E3 (ebenfalls wie bei Taschenrechnern). 


REAL: 


Integer 


VAR r: REAL; 

Variablen vom Datentyp REAL sind Dezimalzahlen der Form: 

3.6 oder +3.6 

0.7 

-4.5E6 oder —4.5E+6 

Der Wertebereich erstreckt sich von IE—38 bis 1E+38. 

Die Rechengenauigkeit beträgt 11 Ziffern. 

Die Rechenoperationen sind: + (Addition), - (Subtraktion), 

* (Multiplikation), / (Division). 

Vergleichsoperatoren sind: <,<=,>,>=, = , <> . 
Standardfunktionen mit einem Ergebnis vom Typ REAL sind: 
ABS(r), SQR(r), SIN(x), COS(x), ARCTAN(x), LN(x), EXP(x), 
SQRT(x). 



Gültige REAL-Zahlen sind z.B.: 

12 . 

12.0 

+3.67 oder 3.67 

-9.03 

0.45 

4.67E+3 oder 4.67E3 
1.4E-4 


Die Rechenoperationen für REAL sind: 

+ Addition 
- Subtraktion 
+ Multiplikation 

/ Division mit Ergebnis vom Typ REAL 


Außerdem sind die schon bekannten Vergleichsoperatoren >, >=, <, <=, =, <> 
(siehe INTEGER, Kapitel 3.1) zu verwenden. 
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Auch in diesem Programm wurde die formatierte Ausgabe gewählt. 

Die ganze Zahl hinter dem ersten Doppelpunkt gibt die gesamte Anzahl der 
Stellen an (einschließlich Dezimalpunkt!). Die ganze Zahl hinter dem zweiten 
Doppelpunkt gibt die Zahl der Stellen hinter dem Dezimalpunkt an. 


Hier sind einige Standardfunktionen für den Datentyp REAL (r steht für eine 
Variable vom Typ REAL, i für INTERGER und x für INTEGER oder 
REAL): 


ABS(r) 

SQR(r) 

SIN(x) 

COS(x) 

ARCTAN(x) 

LN(x) 

EXP(x) 

SQRT(x) 


Absolutwert einer Zahl r. Ergebnis REAL. 

Quadrat von r. Ergebnis REAL. 

Sinus von x (x im Bogenmaß). Ergebnis REAL. 
Cosinus von x (x im Bogenmaß). Ergebnis REAL. 
Arcustangens von x (im Bogenmaß). Ergebnis REAL. 
Natürlicher Logarithmus von x. Ergebnis REAL. 
Exponentialfunktion e x . Ergebnis REAL. 
Quadratwurzel von x. Ergebnis REAL. 


Weitere Standardprozeduren und Funktionen finden Sie im Kapitel 6. 

Unterschied INTEGER ◄—► REAL 
Bei der Variablendeklaration 

VAR x,y : REAL; 

i : INTEGER; 

ergeben die nachstehenden Programmzeilen einen Fehler: 

X := 1.5; 
y s- 2; 

i := x * y; (* hier fehlerhafte Zuweisung *) 

Hier liegt ein sogenannter Typkonflikt vor. Obwohl in diesem Fall das Ergeb¬ 
nis der Multiplikation als ganze Zahl dargestellt werden kann, ist es doch von 
der Typendeklaration her REAL. x*y ergibt nämlich nicht 3, sondern 3.0. 

Einen Ausweg aus diesem Dilemma bieten die Übergangsoperationen von 
REAL nach INTEGER: 


TRUNC ( r ) und ROUND ( r ) (siehe Kapitel 3.1). 
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Ausgabeformate 

Wenn man folgendes deklariert: 

VAR r : REAL; 

n,m : INTEGER; 

ergibt sich bei 

WRITELN(r); Ausgabe von r mit größter Genauigkeit (in der Regel 
in Zehnerpotenzschreibweise). 

WRITELN(r:n:m); Ausgabe von r mit ingesamt n Stellen (einschließlich 
Dezimalpunkt!), davon m Stellen hinter dem Dezi¬ 
malpunkt. 

33 Zeichen-CHAR 

Unser Computer kann nicht nur Zahlen (numerische Ausdrücke) verarbeiten, 
sondern auch Zeichen. Unter Zeichen verstehen wir Buchstaben, Ziffern, 
Satzzeichen, Zeichen für Rechenoperationen und sogenannte Steuerzeichen 
(z.B. für den Drucker). 

Der Datentyp, der für diese alphanumerischen Zeichen verwendet wird, heißt 
CHAR. Welche Zeichen zum Zeichensatz gehören, hängt vom Rechnertyp ab. 
Sehr viele Rechner verwenden Zeichen nach dem sogenannten ASCII-Zei- 
chensatz (American Standard Code for Information Interchange). Dieser Zei¬ 
chensatz umfaßt in der Regel 128 Zeichen (manche Rechner haben einen er¬ 
weiterten Zeichensatz von 256 Zeichen). 

Aufgabe: Sehen Sie sich den ASCII-Zeichensatz im Anhang an! 

Die Zeichen sind durchnumeriert von 0 bis 255. Wir werden gleich auf die Be¬ 
deutung der Nummern zu sprechen kommen. 

Zu beachten ist, daß die Zeichen von Nummer 0 bis 31 nur sogenannte Steuer¬ 
zeichen sind, also Zeichen, die eine bestimmte Funktion ausüben. So ist z.B. 
Nummer 12 das Zeichen FF (Form-Feed) - das ist ein Seitenvorschub (auf 
dem Bildschirm oder dem Drucker.) Die restlichen Zeichen mit den Num¬ 
mern 32 bis 126 sind sichtbare Zeichen. Nur Nummer 127 hat noch eine 
Steuerfunktion (Löschzeichen). 

Die Nummern der Zeichen haben eine große Bedeutung. Durch sie ist der Zei¬ 
chensatz geordnet. So ist z.B. das Zeichen M A" kleiner als das Zeichen "B". 



46 


Schneider CPC - Arbeiten mit Turbo Pascal 


In Pascal werden Zeichen immer zwischen einfache Anführungsstriche (Hoch¬ 
kommata) gesetzt. Will man einen Anführungsstrich als Zeichen verwenden, 
wird er doppelt zwischen zwei Hochkommata geschrieben, also so: 

Wir wollen uns einige Beispiele ansehen: 


PROGRAM TestZeichen; 

CONST a=’A'; 
b=’B'; 

VAR ch:CHAR; 

BEGIN 

READ (KBD,ch); 

WRITELN (ch:4); 

READLN (Ch); 

WRITELN (ch); 

WRITELN (a, b); 
ch := ’C'; 

WRITELN (Ch); 
ch := a; 

WRITELN (ch) 

END. 

Bei der ersten Eingabe (mit READ) reicht es, wenn der Benutzer eine Taste 
drückt (ohne Return- Taste). Die zweite Eingabe (mit READLN) muß mit der 
Return -Taste abgeschlossen werden. 

In der formatierten Ausgabe gibt die ganze Zahl hinter dem Doppelpunkt die 
Anzahl der Stellen an, die das Zeichen beansprucht. Ist die Stellenzahl größer 
1, werden Leerzeichen vorangestellt. 

Achtung! Die Zuweisung ch:=’AB’ ist falsch, da ’AB’ aus mehr als einem Zei¬ 
chen besteht (es ist vom Typ STRING, siehe Kapitel 3.4). 

Mit dem Typ CHAR lassen sich natürlich keine arithmetischen Operationen 
ausführen. Trotzdem gibt es einige Standardfunktionen (c ist vom Typ CHAR 
und i vom Typ INTEGER): 

ORD(c) Ordnungsnummer von c, d.h. die Nummer des Zeichens in der 
Codierungstabelle (z.B. ASCII). Ergebnis vom Typ INTE¬ 
GER. 

Beispiel: ORD(’A’) ergibt 65 

CHR(i) Zeichenfunktion. Liefert das Zeichen mit der Nummer i in der 
Codierungstabelle (z.B. ASCII). Ergebnis vom Typ CHAR. 
Beispiel: CHR(65) ergibt A 
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PRED(c) Vorgängerfunktion. Liefert das dem Zeichen c in der Codie¬ 
rungstabelle vorangehende Zeichen. Ergebnis vom Typ 
CHAR. 

Beispiel: FREDDE*) ergibt D 

SUCC(c) Nachfolgerfunktion. Liefert das dem Zeichen c in der Codie¬ 
rungstabelle nachfolgende Zeichen. Ergebnis vom Typ CHAR. 
Beispiel: SUCC(’E’) ergibt F 

Außerdem gelten die schon bekannten Vergleichsoperatoren: 

< r < ' = / ^ t f ~r 

Dabei ist zu beachten, daß die Elemente des Zeichensatzes in der Reihenfolge 
der Codierungstabelle angeordnet sind. Im ASClI-Zeichensatz gilt z.B.: 


<. . . < * A'<.. . < 


Dabei kann es zu Sortierproblemen kommen, denn einige Sonderzeichen 
kommen in der Reihenfolge vor den Buchstaben. Insbesondere das Leerzei¬ 
chen hat mit 32 die kleinste Ordnungsnummer der "sichtbaren" Zeichen. 


CHAR: 



VAR c: CHAR; 

Variablen vom Datentyp CHAR sind alphanumerische Zeichen. 
Die Zeichen müssen in einfachen Anführungsstrichen stehen. Der 
Zeichensatz ist von der benutzten Rechenanlage abhängig. Es 
besteht eine Ordnung innerhalb des Zeichensatzes, so daß die Ver¬ 
gleichsoperatoren <,<=,>,>=, = ,<> verwendet werden 
können. 

Standardfunktionen mit einem Ergebnis vom Typ CHAR sind: 
CHR(i), PRED(c), SUCC(c). 

Standardfunktion mit einem Ergebnis vom Typ INTEGER ist: 
ORD(c). 
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Ein- undAusgabeformate 
Wenn man folgendes deklariert: 

VAR c : CHAR; 

n : INTEGER; 

ergibt sich bei 

READ(c); Eingabe eines Zeichens ohne Zeilenvorschub. 

READLN(c); Eingabe eines Zeichens mit Zeilenvorschub. 

READ(KBD,c); Eingabe eines Zeichens ohne Return -Taste. 
WRITELN(c); Ausgabe mit einer Stelle. 

WRITELN(crn); Ausgabe mit n Stellen. Die führenden Stellen werden 
mit Leerzeichen ausgefüllt. 

3.4 Zeichenketten - STRING 

Standard-Pascal sieht den Datentyp STRING an sich nicht vor. Viele Pascal- 
Versionen besitzen ihn trotzdem. Hier werden die Standardfunktionen in 
Turbo Pascal vorgestellt. 

Der Datentyp STRING wird für Zeichenketten verwendet. Eine Zeichenkette 
ist eine Aneinanderreihung von Elementen des Typs CHAR. Daher kann man 
sich den Datentyp STRING selbst definieren, wenn er in der benutzten Pascal- 
Version nicht vorgesehen ist. Die Form ist dann: 

TYPE STRING = ARRAY [l..n] OF CHAR; 

wobei n die maximale Anzahl der Zeichen einer Zeichenkette ist. 

Der Turbo Pascal-Benutzer braucht STRING nicht zu definieren, es ist schon 
vordefiniert. Dem Wort STRING wird eine Zahl zwischen 1 und 255 in ecki¬ 
gen Klammem angehängt, die angibt, wie groß die maximale Länge der 
STRING-Variablen ist. 

VAR s : STRING[15]; 

Die maximale Länge der Zeichenkette s beträgt dann 15 Zeichen. 

Als Beispielprogramm zum Datentyp STRING wollen wir ein kleines Pro¬ 
gramm schreiben, das die Buchstaben eines eingegebenen Wortes unter¬ 
einander schreibt. Dazu brauchen wir eine sogenannte Schleife (siehe Kapitel 
4.1), die von 1 bis zur Anzahl der Zeichen des Wortes zählt: 


FOR i:= 1 TO LENGTH(Wort); 
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So sieht das Programm aus: 


PROGRAM Worttest; 

VAR Wort : STRING [20]; 

i : INTEGER; (* Laufvariable *) 

BEGIN 

WRITELN (‘Geben Sie ein Wort ein: '); 
READLN (Wort); 

FOR i := 1 TO LENGTH(Wort) DO 
WRITELN (Wort[i]) 

END. 


In diesem Programm sehen wir, daß es möglich ist, ein Zeichen aus einer Zei¬ 
chenkette herauszunehmen, indem wir die Nummer des Zeichens in eine 
eckige Klammer hinter den Namen der Zeichenkette schreiben. 

Beispiel: 

Wort := 'Computer'; 

Wort [3] ergibt m 

Achtung! Eine Zeichenkette, die nur ein Zeichen enthält, ist deshalb noch 
lange nicht vom Typ CHAR. Eine Zuweisung oder ein Vergleich der Daten¬ 
typen STRING und CHAR führen immer zu einem Typkonflikt. Statt dessen 
schreiben wir: 

VAR c : CHAR; 

s : STRING [20] ; 
n : INTEGER; 

und die Zuweisung 

c : = s [ n ]; (wobei n die Nummer des Zeichens STRING s ist). 


Der Grund für den Unterschied zwischen einem ein Zeichen langen String und 
einer Variablen vom Typ CHAR liegt darin, daß im (nicht sichtbaren) nullten 
Zeichen des Strings die Länge codiert ist. ORD(s[0]) ist die Stringlänge s. 

Zeichenketten dürfen auch nicht druckbare Steuerzeichen oder Control-Zei¬ 
chen enthalten. Dazu wird (ohne zusätzliche Leerstelle) die ASCII-Codierung 
des Zeichens, angeführt durch das #-Zeichen, eingegeben. Auch CTRL-Zei- 
chen können direkt durch Voranstellen eines A -Zeichens eingefügt werden. 
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Beispiele: 

#10 : Zeilenvorschub (Line Feed) 

#$A : Ebenfalls Zeilenvorschub 

#65 : A 

#$1B : ESC 
A P : CTRL-P 

A G : CTRL-G (Bell, Piepston) 

oder 


WRITELN( A G A G A G 'Aufwachen!'); 

WRITELN(#12 'Neue Seite'); 

Als Standardfunktion mit Zeichenketten haben wir im Programm LENGTH(s) 
benutzt. Es gibt noch weitere Funktionen (s, sl, s2 ... sind vom Datentyp 
STRING und n und m vom Typ INTEGER): 

LENGTH(s) Länge der Zeichenkette s, d.h. Anzahl der Buchstaben. 
Ergebnis vom Typ INTEGER. 

Beispiel: LENGTH(’Wort’) ergibt 4. 

POS(sl,s) Position des erstmaligen Auftretens der Zeichenkette sl 

in der Zeichenkette s. Ergebnis vom Typ INTEGER. 
Beispiel: POS(’buch’,’Handbuch’) ergibt 5. 

POSCbaliy Handbuch’) ergibt 0. 

POS(’ei’,’Weinstein’) ergibt 2. 


CONCAT(sl ,s2,s3,...sn) 

Verkettung mehrerer Zeichenketten. Ergebnis vom 
Typ STRING. 

Beispiel: CONCAT(’Hand’,’buch’) ergibt Handbuch. 

sl+s2...+sn Statt mit CONCAT können mehrere Strings auch mit 
dem Zeichen + verknüpft werden. 

Beispiel: ’Hand’ + ’buch’ ergibt Handbuch. 

COPY(s,n,m) Herausnehmen eines Teils aus der Zeichenkette s ab der 
Stelle n mit der Länge m. Ergebnis vom Typ STRING. 
Beispiel: COPY(’Computer’,4,3) ergibt put. 

Neben den Standardfunktionen gibt es noch die Standardprozeduren mit Zei¬ 
chenketten. Im Gegensatz zu den Funktionen, die immer ein Ergebnis haben, 
das einer Variablen zugewiesen werden muß, werden Prozeduren nur aufge- 
rufen und können dann Variablen ändern, die ihnen beim Prozeduraufruf mit¬ 
gegeben werden (siehe auch Kapitel 6.1). 
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INSERT(sl,s,n) Einfügen einer Zeichenkette sl in die Zeichenkette s an 
der Stelle n. 

Beispiel: Sei s:=’Comer’; 

INSERT(’put’,s,4) ergibt Computer für s.. 
DELETE(s,n,m) Löschen von m Zeichen ab der Stelle n in der Zeichen¬ 
kette s. 

Beispiel: Sei s:=’Buchstaben’; 

DELETE(s,3,5) ergibt Buben für s. 

STR(i,s) Wandelt eine Zahl i vom Typ INTEGER in einen String 

sum. 

VAL(s,x,i) Wandelt einen String s, der eine Zahl vom Typ REAL 
oder INTEGER enthält, in eine Zahl x des entsprechen¬ 
den Typs um. i ist eine INTEGER-Variable, die die 
Stelle im String s markiert, an der ein Fehler bei der 
Umwandlung passiert. Ohne Fehler ist i = 0. Da an die¬ 
ser Stelle die Anwendung von Funktionen und Proze¬ 
duren noch nicht bekannt ist, ein kleines Programm, 
das die Benutzung der o.g. Funktionen und Prozeduren 
verdeutlichen soll: 

PROGRAM Stringdemo; 

VAR Wort, Teil : STRING[30]; 

Stelle, Laenge : INTEGER; 

BEGIN 

Wort := 'Donauschiff'; 

Laenge := LENGTH(Wort); 

WRITELN(Laenge); (* Ausgabe: 11 *) 

Teil := 'aus'; 

Stelle := POS(Teil,Wort); 

WRITELN(Stelle); (* Ausgabe: 4 *) 

Wort := CONCAT(Wort,’skapitaen'); 

WRITELN(Wort); (* Ausgabe: Donauschiffskapitaen *) 

Teil := COPY(Wort,6,6); 

WRITELN(Teil); (* Ausgabe: schiff *) 

INSERT('dampf’,Wort,6); 

WRITELN(Wort); 

(* Ausgabe: Donaudampfschiffskapitaen *) 

Stelle := 1; 

Laenge := 17; 

DELETE(Wort,Stelle,Laenge); 

WRITELN(Wort); (* Ausgabe: kapitaen *) 


END. 
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STRING: 


Zeichen 


VAR s : STRING [n] mit 0<n<256 

Variablen vom Datentyp STRING sind Zeichenketten. Die maxi¬ 
male Anzahl der Zeichen wird durch n angegeben. 

Da STRING als ARRAY [l..n] OF CHAR vordefiniert ist, kann 
mit s[i] auf das i-te Zeichen von s zugegriffen werden (mit i vom 
Typ INTEGER). s[i] ist vom Typ CHAR. 

Über den Datentyp CHAR ist der Typ STRING ebenfalls geord¬ 
net, so daß die Vergleichsoperatoren <,<=,>,>=,=,<> 
verwendet werden können. 

Mit 4- können Zeichenketten zu einer neuen Zeichenkette ver¬ 
knüpft werden. 

Standardfunktionen mit einem Ergebnis vom Typ INTEGER sind: 
LENGTH(s) und POS(sl,s). 

Standardfunktionen mit einem Ergebnis vom Typ STRING sind: 
CONCAT(sl,s2,...,sn) und COPY(s,n,m). 

Standardprozeduren sind: 

INSERT(sl,s,n) ,DELETE(s,n,m) STR(i,s) und VAL(s,x,i). 


Ausgabeformate 

Wenn man folgendes deklariert: 


VAR s : STRING[20]; 
n : INTEGER; 


ergibt sich bei: 


WRITELN(s); Ausgabe von s mit LENGTH(s) Stellen 
WRITELN(s:n); Ausgabe von s mit n Stellen. Wenn n > LENGTH(s) ist, 
so werden die führenden Stellen mit Leerzeichen 
aufgefüllt. 
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3.5 Wahrheitswerte - BOOLEAN 

DER UNTERE SATZ IST WAHR 
DER OBERE SATZ IST GELOGEN 

Was ist denn nun wahr? 

Aus der Aussagenlogik kennen wir sogenannte logische Aussagen. Sie können 
die Werte "Wahr” oder "Falsch" einnehmen. 

Beispiele: 

"Paris ist die Hauptstadt von England" ist falsch. 

"Paris ist die Hauptstadt von Frankreich" ist wahr. 

"Dieses Buch ist leicht verständlich" ist objektiv nicht entscheidbar. 

Alle drei Aussagen sind allerdings für unsere Arbeit mit dem Computer un¬ 
brauchbar. Insbesondere darf es niemals eine unentscheidbare Situation geben. 


Vielmehr haben wir es mit Aussagen folgenden Typs zu tun: 

5 = 4 ist falsch 
5 > 4 ist wahr 

In Pascal haben die Wahrheitswerte folgende Namen: 

TRUE - Wahr 
FALSE - Falsch 

Außerdem kann man einen Wahrheitswert einer Variablen zuordnen, die dann 
vom Typ BOOLEAN ist. 


Wenn die Variable b vom Datentyp BOOLEAN ist, dann gilt für die folgenden 
Zuweisungen: 


b:=TRUE; richtig 

b:=FALSE; richtig 

b:=b=FALSE; richtig 

b:=17<3; richtig 

b:=ioj; richtig 

b:=(12>2) AND (7<2); richtig 
b:=12+3; falsch 


(mit i, j vom Typ INTEGER) 



54 


Schneider CPC - Arbeiten mit Turbo Pascal 


Wir wollen ein Programm schreiben, das eine Wahrheitstabelle für die "Und- 
Verknüpfung" (AND) angibt: 

PROGRAM Wahr; 

VAR a,b,c : BOOLEAN; 

PROCEDURE Ausgabe; 

BEGIN 

c:=a AND b; 

WRITELN(a:6 f ' AND ',b:6, ' = ',c:6) 

END; (* von Ausgabe *) 

BEGIN 


a:=FALSE; 

b:=FALSE 

Ausgabe; 


a:=FALSE; 

b:=TRUE 

Ausgabe; 


a:=TRUE ; 

b:=FALSE 

Ausgabe; 


a:=TRUE ; 

b:=TRUE 

Ausgabe 



END. 


In diesem Programm wurde eine einfache Prozedur verwendet. Das ist ein 
Unterprogramm (Teilprogramm), das einfach durch Nennung seines Namens 
aufgerufen und abgearbeitet wird. Werden Daten durch die bekannten Opera¬ 
toren <, <=, >, >=, =, <> verglichen, so ist das Ergebnis vom Typ BOOLEAN 
und könnte einer entsprechenden Variablen zugewiesen werden. 

Ausdrücke vom Typ BOOLEAN können benutzt werden (mit a, b vom Typ 
Boolean): 

a AND b logisches "UND" 

a OR b logisches "ODER” 

a XOR b logisches "ENTWEDER ODER" 

NOT a Negation von a 

Weiterhin gilt: FALSE < TRUE 

Mit zwei FOR-Schleifen läßt sich obiges Programm noch eleganter schreiben: 

PROGRAM Wahr2; 

VAR a,b : BOOLEAN; 

BEGIN 

FOR a:=FALSE TO TRUE DO 
FOR b:=FALSE TO TRUE DO 

WRITELN(a:6,' AND ',b:6,' = 


END. 


', a AND b :6) 
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Wahrheitstabellen für die logischen Operatoren: 


a 

NOTa 

FALSE 

TRUE 

TRUE 

FALSE 


a 

b 



aORb 

a=b 

aXORb 

FALSE 

FALSE 



FALSE 

TRUE 

FALSE 

FALSE 

TRUE 



TRUE 


TRUE 

TRUE 

FALSE 


FALSE 

TRUE 


TRUE 

TRUE 

TRUE 


TRUE 



FALSE 


Außerdem gibt es eine Funktion mit einem Ergebnis vom Typ BOOLEAN: 


ODD(i) ergibt TRUE, wenn die ganze Zahl i ungerade ist. 


BOOLEAN: 

VAR b: BOOLEAN; 

Variablen vom Datentyp BOOLEAN sind logische Variablen mit 
Dateninhalt TRUE oder FALSE. 

Logische Opratoren sind: AND, OR, XOR, NOT, = . 

Eine Standardfunktion mit einem Ergebnis vom Typ BOOLEAN 
ist ODD(i). 


Hinweis: Ein "logischer Schalter" ist der Ausdruck: 
a:=a=FALSE; (mit VAR a:BOOLEAN; 

Wenn a FALSE ist, erhält es den Weit TRUE und umgekehrt. 

Logische Ausdrücke und Variablen werden besonders im Zusammenhang mit 
Schleifen (Kapitel 4) und mit Entscheidungen (Kapitel 5) gebraucht. 

Ein- und Ausgabeformate 

READLN(b) Einlesen einer Zeichenkette TRUE oder FALSE. 
WRlTELN(b:n) Ausgabe des Wahrheitswertes der Variablen b als Zei¬ 
chenkette TRUE oder FALSE in einem Feld von n Stel¬ 
len Länge. 
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3.6 Die TYPE-Deklaration - Aufzählungen - Unterbereiche 

Mit Hilfe des reservierten Wortes TYPE können wir im Programmkopf eige¬ 
ne Datentypen erklären. Dazu wird der (von uns erfundene) Name des neuen 
Datentyps nach einem Gleichheitszeichen erklärt. 


»^TYPE) Bezeichner - —0-*C Typ 


■o 


O 


Beispiele: 


TYPE 


und 


Dezimal = REAL; 

Feld = ARRAY [0..5] OF INTEGER; 


VAR x, y : Dezimal; 
f : Feld; 

Achtung! Häufig passieren Fehler durch Verwechslungen von Variablenna¬ 
men mit Datentypen. Feld könnte sicher auch ein Variablenname sein. Im o.g. 
Fall jedoch ist es als Datentyp deklariert. Eine Variable mit Namen Feld darf 
es also nicht geben! 

Sicher gibt es nicht nur die Möglichkeit, schon bekannte Datentypen mit neuen 
Namen zu versehen. Wir können auch ganz neue Datentypen erzeugen. 

A ufzählungstypen 

Nehmen wir an, wir hätten in Programmen häufig mit Farben zu tun. Dann 
könnten wir folgendenTyp durch eine Aufzählung deklarieren: 


TYPE Farbe = (rot, gelb, gruen, braun, weiss, schwarz, violett); 


Achtung: Bei den Farben handelt es sich nicht um STRINGs! 
Nun erklären wir: 


VAR Ampel, Bildfarbe : Farbe; 

und 


PROCEDURE fahren; 
PROCEDURE Zeichne 
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Im Programm sind folgende Anweisungen möglich: 

IF Ampel = gruen THEN fahren; 

FOR Bildfarbe: = rot TO violett DO Zeichne; 

Ampel: = rot; 

Ampel: = SUCC(Ampel);(* Ergebnis: gelb *) 

Allerdings lassen sich Variablen, deren Typen durch Aufzählungen entstanden 
sind, nicht so einfach ein- und ausgeben. 

WRITELN (Ampe 1) ; ist nicht möglich! 

Für Ein- und Ausgaben müssen etwas umfangreichere Hilfsprozeduren ver¬ 
wendet werden. 

Merke: Aufzählungstypen sind durch die Reihenfolge der Aufzählung in der 
TYPE-Deklaration geordnet (z.B. gilt weiß > braun), kennen Vorgänger 
(PRED) und Nachfolger (SUCC) und lassen sich daher z.B. auch in FOR- 
Schleifen verwenden. 

Außerdem ist die Funktion ORD auf Aufzählungstypen anzuwenden (z.B. gilt 
ORD(braun)=3). Die Zählung der ORD-Funktion beginnt bei 0 für das erste 
Element. 


Unterbereiche 

Bei der oben verwendeten Variablen Ampel ist der Datentyp Farbe sicher 
nicht glücklich gewählt. Besser wäre es, nur die Farben Rot, Gelb, Grün zuzu¬ 
lassen. 

Da aus Gründen der Eindeutigkeit Bezeichner nicht doppelt verwendet werden 
dürfen, können wir nicht einen weiteren Farbtyp deklarieren. Allerdings gibt 
es die Möglichkeit in Pascal, von jedem aufzählbaren Datentyp Unterbereiche 
zu verwenden. 


Beispiele: 


TYPE Farbe 

Ampelfärbe 
SWFarbe 
Ziffern 
Buchstaben 


(rot, gelb gruen, braun, weiss, 
schwarz, violett); 
rot .. gruen; 
weiss .. schwarz; 

0 .. 9; 

'a' ..'z'; 



58 


Schneider CPC - Arbeiten mit Turbo Pascal 


Ein Unterbereich wird dadurch angegeben, daß Anfangs- und Endelement des 
Bereichs durch zwei (!) Punkte getrennt aufgeschrieben werden. 

Wir wollen uns noch Beispiele für Aufzählungen und Unterbereiche ansehen: 

TYPE Tag = (Mon, Die, Mit, Don, Fre, Sam, Son); 

Monat = (Jan, Feb, Mar, Apr, Mai, Jun, Jul, Aug, 

Sep, Okt, Nov, Dez); 

Autotyp = (PKW, Kombi, LKW, Transporter, Bus); 

Klassen = (Sexta, Quinta, Quarta, Untertertia, 

Obertertia, Untersekunda, Obersekunda, 
Unterprima, Oberprima); 

Wochenende = Sam .. So; 

Arbeitstag = Mo .. Fr; 

Sommer = Jun .. Sep; 

Oberstufe = Obersekunda .. Oberprima; 

Posint = 1 .. MAXINT; 

Nun folgt ein kleines Programm zur Verdeutlichung des Gebrauchs von Auf¬ 
zählungen und Unterbereichen. Zunächst sind jedoch einige Hinweise nötig, 
die auf spätere Themen vorgreifen. 

Eine Prozedur (Unterprogramm) kann mit einem Wert aufgerufen werden. 
Dazu wird eine entsprechende Variable hinter dem Prozedumamen erklärt. 
Weiterhin wird eine Fallunterscheidung mit CASE benutzt, da die einzelnen 
Werte eines Aufzählungstyps nicht direkt ausgegeben werden können. Nach 
dem Wort CASE steht eine Variable und nach dem Wort OF eine Liste der 
Werte, die die Variable annehmen kann. Immer dann, wenn die Variable einen 
Wert aus der Liste annimmt, wird die dazugehörige Anweisung ausgeführt. 

PROGRAM Tiere; 

TYPE Alle - (See, Land, Flug, Borsten, Loewe, Adler, 

Schwein, Ente, Hund, Elefant); 

Vor - See .. Borsten; 

Nach - Loewe .. Elefant; 

VAR Erst : Vor; 

Tier : Nach; 

PROCEDURE Drucke (Wort : Alle); 

BEGIN 

CASE Wort OF 


See 

WRITE(' 

See') 

; Loewe 

WRITE('loewe'); 

Land 

WRITE(’ 

Land') 

; Adler 

WRITE('adler ') 

Flug 

WRITE(' 

Flug’) 

; Schwein 

WRITE('schwein') 

Borsten 

: WRITE('Borsten') 

; Ente 

WRITE('ente ') 

Hund 

: WRITE(’ 

hund ') 

Elefant : 

: WRITE('elefant') 


END (* von Case *) 

END; (* von Drucke *) 
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BEGIN (* Hauptprogramm *) 

WRITELN(* Tiernamengenerator:'); 
WRITELN; 

FOR Tier := Loewe TO Elefant DO BEGIN 
WRITELN; 

FOR Erst SEE TO Borsten DO BEGIN 
Drucke(Erst); 

Drucke(Tier); 

Write (' ’) 

END (* von Erst *) 

END (* von Tier *) 

END. 


Sicher hätte man das Programm auch mit anderen Datentypen (STRING z.B.) 
schreiben können. Insbesondere fällt auf, daß die Ausgabe recht aufwendig ist, 
da jeder Wert vom Typ Alle in eine Zeichenkette übersetzt werden muß. 


Typdeklaration: 



Mit der Typdeklaration lassen sich für das ganze Programm (oder 
eine einzelne Prozedur) Datentypen mit benutzerdefinierten 
Namen erklären. Sie stellen einfache Typen dar. Dies ist besonders 
für Funktionen wichtig, weil ihr Ergebnistyp von einfachem Typ 
sein muß. 

Aufzählungstypen werden durch einfache Aufzählung ihrer Ele¬ 
mente in Klammern erklärt. 

Unterbereiche sind Teile von Aufzählungen, bei denen Anfangs¬ 
und Endelement angegeben werden. 

Merke: Benutzerdefinierte Aufzählungstypen lassen sich nicht ein¬ 
fach ein- und ausgeben. 
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Wozu braucht man dann überhaupt Aufzählungstypen und Unterbereiche? 

Ein Programm mit einer Schleife "FOR Mon := Januar TO April DO..." ist 
sicher lesbarer als eines mit einer Schleife ”FOR i: = 1 TO 4 DO...”. Außer¬ 
dem eignen sich Aufzählungstypen (insbesondere in großen Programmen) zur 
Geschwindigkeitssteigerung und zum Sparen von Speicherplatz, da sie nur ein 
Byte Speicherplatz brauchen (STRING so viele Bytes wie Zeichen). Auch der 
Gebrauch von Unterbereichen macht Programme sicher eleganter und über¬ 
sichtlicher. 


3.7 Typumwandlungen - Absolute Speicheradressen 

In Turbo Pascal lassen sich Daten verschiedener skalarer Typen sehr einfach 
in andere skalare Typen umwandeln. 

In Standard-Pascal stehen dazu nur die Standardfunktionen CHR und ORD zur 
Verfügung, um eine eingeschränkte Typumwandlung vorzunehmen. Bei¬ 
spielsweise ergibt ORD(’A’) = 65. 


Dies läßt sich in Turbo auch folgendermaßen formulieren: 
INTEGER('A') = 65 


Die Typumwandlung geschieht also dadurch, daß nach dem Zieltyp in der 
Klammer als Argument ein Wert aus dem umzuwandelnden Typ steht, z.B.: 


TYPE Farbe 
Tag 
Gross 


(rot, gruen, blau, gelb); 

(Mon, Die, Mit, Don, Fre, Sam, Son); 
' A' . .'Z' ; 


dann ist: 


Gross ('d') = ' D' ; 

INTEGER (blau) = 2; (Achtung: Zählung bei 0 beginnen) 
Farbe(Mit) = blau; 

Tag(4) = Fre; 


Hinweis: Verwendet werden dürfen natürlich nur aufzählbare Typen. REAL 
ist daher nicht zulässig. 

Normalerweise legt Turbo Pascal Variablen in einem dafür vorgesehenen 
Speicherbereich ab. Wenn aber aus irgendeinem Grund gewünscht wird, daß 
Variablen ganz bestimmte Plätze im Speicher einnehmen sollen, kann dies in 
Turbo Pascal durch absolute Variablendeklarationen geschehen. 
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Beispiel: 

VAR IOByte : BYTE ABSOLUTE $0003; 

Textseite : ARRAY [0..959] OF CHAR ABSOLUTE $0400; 


In Turbo Pascal wird hinter dem Datentyp das reservierte Wort ABSOLUTE 
und eine hexadezimale Speicherstelle angegeben, ab der die Variable abgespei¬ 
chert werden soll. 


Die absolute Adressierung kann auch von einer anderen Variablen abhängig 
gemacht werden. 

VAR Str : STRING[80]; 

StrLaenge : BYTE ABSOLUTE Str; 

Das heißt, daß eine Variable bei derselben Speicherstelle beginnt, wie eine an¬ 
dere. Damit teilen sich mehrere Variablen ein und denselben Speicherplatz. 


Die Standardfunktion 


ADDR(Variablenname) 


gibt die Anfangsspeicherstelle der angegebenen Variablen an. 


3.8 Mengen 

Finden Sie den Unterschied! 


Erste Version: 

WRITELN('Waehlen Sie:'); 

WRITELN('M(enue'); 

WRITELN('S(ortieren' ); 

WRITELN('A(endern '); 

WRITELN('F(inden' ); 

WRITELN('E(nde' ); 

REPEAT 
READ(ch) 

UNTIL ((((ch=' M' ) OR (ch='m')) OR ((ch-'S') OR (ch='s'))) 

OR (((ch = 'A') 

OR (ch = 'a')) OR ( (ch='F') OR (ch = 'f')))) OR((ch ='E') 
OR (ch ='e')); 
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Zweite Version: 

WRITELN('WaehlenSie 
WRITEln('M(enue') ; 

WRITELN('S(ortieren' ) ; 

WRITELN('A(endern'); 

WRITELN('F(finden'); 

WRITELN('E(nde' )/ 

REPEAT 
READ(ch) 

UNTIL ch IN [' M' , ' m' , 'S', 's', 'A', 'a', 'F', ' f' , 'E', 

'e']; 

Richtig! Bei der zweiten Version ist eine Menge verwendet worden. In der 
UNTIL-Abfrage wird getestet, ob das Zeichen ch Element der Menge der an¬ 
gegebenen Zeichen ist (IN). 

Es ist in Pascal tatsächlich möglich, mit Mengen zu operieren. Der dazu nötige 
Datentyp heißt SET. 

Beispiel: 

TYPE Menge = SET OF INTEGER; 

Letter = SET OF CHAR; 

Klein = SET OF [1..7]; 

Farbm = SET OF (rot, gruen, gelb, blau); 

VAR a b,m : Menge; 
l,k : Letter; 


Folgende Zuweisungen sind dann richtig: 

a := 11,2,3,4,5,6,7,8]; 

b := [1. .8]; 

1 := ['a' . .' z' ,' A' . .'Z']; 

k := ['+',' 

Mengen können durch Aufzählen der Elemente erstellt werden. Die Elemente 
werden in eckigen Klammem, durch Kommata getrennt, aufgezählt. Auch 
Unterbereiche können in den Klammem auftreten. Die Elemente dürfen nur 
von einfachen Datentypen sein (INTEGER, CHAR, BOOLEAN, Aufzählun¬ 
gen, Unterbereiche). 
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Darstellung einer Menge im Programm: 



Aus dem Syntaxdiagramm ersehen wir, daß auch 
a := in¬ 
korrekt ist. 

Wenn zwischen den eckigen Klammem nichts steht, so handelt es sich um die 
leere Menge. 

Welche Operationen sind mit Mengen definiert? 


Vereinigung: 

+ 

Differenz: 

- 

Durchschnitt: 

* 

Gleichheit: 

= 

Ungleichheit: 

<> 

Ist Teilmenge von: 

< = 

Ist echte Teilmenge: 

< 

Ist Obermenge von: 

>= 

Ist echte Obermenge: 

> 

Ist Element von: 

IN 

Beispiele: 

[1,2,3,4] + [3,4,8,19] 

ergibt [1,2,3,4,8,19] 

[1,2,3,4]- [3,4,8,19] 

ergibt [1,2] 

[1,2,3,4] * [3,4,8,19] 

ergibt [3,4] 

[1,2,3] = [2,1,3] 

ist wahr 

5 IN [1,4,5,6] 

ist wahr 

[’a’..V] > [’cVf] 

ist wahr 


Nun folgt ein kleines Programmbeispiel zu den Mengenoperationen. 
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PROGRAM Textmengen; 

TYPE Mengen=SET OF CHAR; 


VAR Ziffern,Buchstaben,Sonstige 
Vokale,Konsonanten,Urmenge 
Zi,Bu,So,i 
Satz 
ch 


Mengen; 
Mengen; 
INTEGER; 
STRING[80] ; 
CHAR; 


BEGIN (*Hauptprogramm*) 

CLRSCR; 

WRITELN('Geben Sie einen Satz ein:'); 

READLN(Satz); 

Bu:=0; Zi:=0; So:=0; 

Ziffern:=[* 0 *..'9']; 

Buchstaben:=[ , A , ..'Z'] + ['a'..'z']; 

Sonstige:=[' 1 - (Ziffern + Buchstaben); 

Vokale: = [ ' a *, ' e ’,' i', ' o',' u',' A', ' E',' I','O', ' U' ]; 
Konstanten:=Buchstaben - Vokale; 

Urmenge:=[] ; 


FOR i:=1 TO LENGTH(Satz) DO BEGIN 
IF Satz [i] IN Buchstaben THEN Bu:=Bu+l ELSE 
IF Satz [i] IN Ziffern THEN Zi:=Zi+l ELSE So:=So+l; 
Urmenge:=Urmenge+[Satz i]] 

END; 


Vokale:= Vokale * Urmenge; 

Konsonanten:= Konsonanten * Urmenge; 

Ziffern:= Ziffern * Urmenge; 

WRITELN('Der Satz:'); 

WRITELN (Satz); 

WRITELN('enthaelt ',Bu:3,' Buchstaben,'); 
WRITELN(' ',Zi:3,' Ziffern,'); 

WRITELN(' und ',So:3,' sonstige Zeichen.'); 

WRITELN('Folgende Vokale: '); 

FOR ch:=' ' TO '}' DO 

IF ch IN Vokale THEN WRITE(ch); 

WRITELN; 

WRITELN('Folgende Konsonanten: '); 

FOR ch:=' ' TO '}' DO 

IF ch IN Konsonanten THEN WRITE(ch); 

WRITELN; 

WRITELN('Folgende Ziffern: '); 

FOR ch:=’ ' TO '}' DO 

IF ch IN Ziffern THEN WRITE(ch); 

WRITELN 

END. 


Das Programm bestimmt die Anzahl der Ziffern, Buchstaben und Sonderzei¬ 
chen in einem eingegebenen Text. Außerdem werden die vorhandenen Vokale, 
Konsonanten und Ziffern ausgegeben. In der Ausgabeprozedur ist ein kleiner 
Trick vorhanden. Da die Elemente von Mengen nicht direkt ausgegeben wer- 
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den können, muß der ganze Zeichensatz mit einer Schleife durchlaufen werden 
und das Element immer dann ausgegeben werden, wenn es in der Menge ist. 

Ausgabe des Programms: 


Der Satz: 

Dies ist ein (Beispiel-)Satz, um das Programm zu testen! 
enthaelt 43 Buchstaben, 

0 Ziffern, 

und 16 sonstige Zeichen, 
folgende Vokale: 
aeiou 

folgende Konsonanten: 

BDPSdglmnprstz 
folgende Ziffern: 


Menge: 

SET ) - OF ) -► einfacher Typ 

Die Elemente einer Menge können von den Datentypen: 
Aufzählung, Unterbereich, BYTE, CHAR und BOOLEAN sein. 
Eine Menge wird angegeben durch Aufzählung der Elemente 
(durch Kommata getrennt) oder Unterbereiche; beides in 
eckigen Klammem. Die leere Menge wird durch [] angegeben. 
Die Mengenoperationen werden mit den Operatoren 
+, *, =, <, >, <=, >= und IN ausgeführt. 


einfacher Typ 


Einschränkung in Turbo Pascal: 

- Eine Menge darf höchstens 256 Elemente haben. 

- Die Elemente einer Menge dürfen nur aus aufgezählten Datentypen sein, die 
nicht mehr als 256 Elemente enthalten (z.B. BYTE oder 100..355 als Unter¬ 
bereich von INTEGER, nicht aber INTEGER). 
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Schleifen 


4.1 Die FOR-Schleife 

In Pascal gibt es eine Anweisung, die es erlaubt, festzulegen, wie oft andere 
Anweisungen ausgeführt werden sollen. Diese Anweisung nennt man FOR- 
Schleife. Dazu wird eine sogenannte Laufvariable auf einen bestimmten An¬ 
fangswert gesetzt und bei jedem Schleifendurchgang auf ihren Nachfolger er¬ 
höht, bis die Laufvariable den Endwert erreicht oder überschritten hat. Die 
Form ist: 


FOR Zählvariable:“Anfangswert TO Endwert DO Anweisung; 

FOR Zählvaribale:-Anfangswert TO Endwert DO BEGIN Anweisungen END; 

Es ist außerdem möglich, rückwärts zu zählen. In diesem Fall muß in der obi¬ 
gen Anweisung "TO" durch "DOWNTO" ersetzt werden: 


FOR Zählvariable:-Anfangswert DOWNTO Endwert DO Anweisung; 

FOR Zählvariable:-Anfangswert DOWNTO Endwert DO BEGIN Anweisungen END; 

Die Angabe einer Schrittweite - wie in manchen anderen Programmierspra¬ 
chen - ist in Pascal nicht möglich. Die Zählvariable wird also immer auf ihren 
Nachfolger (d.h. bei Zählvariablen vom Typ INTEGER um 1) erhöht oder auf 
den Vorgänger vermindert. 

Dazu sehen wir uns ein kleines Beispiel an. 

Beachtenswert ist der Einsatz von FOR-Anweisungen als Verzögerungsschlei¬ 
fe mit einer "leeren" Anweisung nach dem DO. Nach der Deklaration von 

VAR ch: CHAR; (* CHAR = Buchstabe *) 
kann man die entsprechende FOR-Anweisungen wie folgt ändern: 

FOR ch : = ' ' TO DO bzw. FOR ch:= DOWNTO ' ' DO 

In Kapitel 3.3 haben wir den ASCII-Zeichensatz kennengelemt. Hier ist nun 
ein Programm, das alle druckbaren Zeichen dieses Zeichensatzes vorwärts und 
rückwärts ausgibt. 
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PROGRAM Ascii; 

VAR i,zeit : INTEGER; 

BEGIN 

CLRSCR; (* Loescht den Bildschirm *) 

WRITELN; 

WRITE(* Der ASCII-Zeichensatz ')/ 

WRITELN (' - vorwaerts:'); 

WRITELN; 

FOR i:=32 TO 126 DO WRITE(i:5,’:',chr(i):2); 

FOR zeit:=l TO 30000 DO; (* Verzoegerungsschleife *) 

CLRSCR; (* Loescht den Bildschirm *) 

WRITE('Der ASCII-Zeichensatz '); 

WRITELN('- und rueckwaerts:'); 

WRITELN; 

FOR i:=126 DOWNTO 32 DO WRITE(i:5,':',ehr(i) :2); 

FOR zeit:=30000 DOWNTO 1 DO; (* Verzoegerungsschleife *) 
CLRSCR 
END. 


Die Ausgabe bleibt gleich. Wie an diesem Beispiel zu sehen ist, kann man als 
Zähl variable auch andere Datentypen als INTEGER wie z.B. CH AR verwen¬ 
den. Die Datentypen müssen allerdings genau einen Nachfolger oder Vorgän¬ 
ger haben. Daher kommen zunächst nur INTEGER, CHAR und BOOLEAN 
(nur zwei Werte!) sowie Aufzählungen und Unterbereiche als Zählvariablen 
in Frage. In einem Programm können somit durchaus die folgenden Anwei¬ 
sungen auftreten: 


FOR ch:='A' TO 'Z' WRITE (ch) (* Gibt alle Großbuchstaben aus *) 

FOR ch:='z' DOWNTO 'a' DO WRITE (ch) (* Gibt alle Kleinbuchstaben aus *) 


Wodurch kann nun erreicht werden, daß ein Programm - z.B. mit einer der 
o.a. FOR-Schleifen - nach der Ausgabe jedes einzelnen Buchstabens kurz an¬ 
hält und dann fortfährt? Offensichtlich kann eine Verzögerungsschleife inner¬ 
halb des Anweisungsblocks einer FOR-Schleife dies bewirken. In einem sol¬ 
chen Fall spricht man von Schachtelung. Dabei ist zu beachten, daß die innere 
Schleife jeweils vollständig abgearbeitet wird, bevor die äußere Schleife fort¬ 
geführt wird. 


Verdeutlichen wir uns dies anhand eines weiteren Programms. Es soll ein 
Dreieck, zusammengesetzt durch den wiederholten Ausdruck des Zeichens *, 
ausgeben. 
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PROGRAM Dreieck; 

VAR Sterne_pro_Zeile, 

Aussen, Innen, Leer, 

Anzahl_der_Zeilen: INTEGER; 

BEGIN 

CLRSCR; 

WRITE('Wie viele Zeilen soll das Dreieck haben? *); 

READLN(Anzahl_der_Zeilen); 

Sterne_pro_Zeile:=1; (* fuer erste Zeile *) 

FOR Aussen:=Anzahl_der_Zeilen DOWNTO 1 DO 

BEGIN (* von Aussen *) 

FOR Leer:=Aussen DOWNTO 1 DO WRITE (' •); 

(* Gibt * * aus *) 
FOR Innen:=1 TO Sterne_pro_Zeile DO WRITE ('*'); 
Sterne_pro_Zeile:=Sterne_pro_Zeile + 2; 

WRITELN (* naechste Zeile *) 

END (* von Aussen *) 

END. 


Innerhalb der "Aussen"-Schleife, die einen Anweisungsblock umfaßt, sind 
zwei weitere FOR-Schleifen untergebracht, die jeweils nur eine Anweisung 
beinhalten. Ferner wird die Zählvariable "Aussen" in der "Leer"-Schleife als 
Anfangswert eingesetzt. Lassen wir das Programm einmal mit Anzahl_der_ 
Zeilen:=6 ablaufen, so ergibt sich folgender Ausdruck: 

★ 

★ ★ ★ 

★ ★ ★ ★ ★ 

★★★★★★★ 

*★**★**★* 

*********** 


Beachte: Die FOR-Schleife zählt eine Zählvaribale von einem Anfangswert bis 

zu einem Endwert (herauf mit TO, herunter mit DOWNTO). 

- Anfangs- und End wert dürfen Konstanten oder Variablen sein. 

- Anfangs-, Endwert und Zählvariable müssen vom gleichen Datentyp sein. 

- Als Schleifentyp kann jeder Datentyp verwendet werden, der genau einen 
Nachfolger (bzw. Vorgänger) hat (INTEGER, CHAR, BOOLEAN und 
Aufzählungstypen). 

- Eine Schleife wird einmal abgearbeitet, wenn Anfangs- und Endwert über¬ 
einstimmen. 

- Eine Schleife wird keinmal abgearbeitet, wenn bei Verwendung von TO der 
Anfangswert größer als der Endwert, bei Verwendung von DOWNTO der 
Anfangswert kleiner als der Endwert ist. 
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- Schleifen können geschachtelt werden. 

- Schleifen mit einer leeren Anweisung können als Verzögerungsschleifen 
eingesetzt werden. 


Darüber hinaus 

- kann eine Zählvariable zur Berechnung anderer Variablen verwendet wer¬ 
den; 

- sollten Zählvariable, Anfangs- und Endwert in einer Schleife nicht verän¬ 
dert werden. 


Hinweis: In einigen Pascal-Versionen ist das Ändern von Zählvariablen sowie 
von Anfangs- und Endwert innerhalb der Schleife zwar möglich, sollte aber 
aus Gründen eines "sauberen" Programmstils unterbleiben. 


FOR-Schleife: 

-* > (FOFj) -»» | Variablel -fr^Q- n Ausdruck | <' AusdruciTl ~»* ( Dp) — H Ausdruck [ »► 

\DOWNTOy 

For Zählvariable:=Anfangswert TO Endwert Do Anweisung(en); 
FOR Zählvariable:=Anfangswert DOWNTO Endwert Do An¬ 
weisungen); sind aufwärtszählende (TO) und abwärtszählende 
(DOWNTO) Zählschleifen. 

Zählvariable, Anfangswert und Endwert sind vom gleichen Daten¬ 
typ. Sie können vom Typ INTEGER, CHAR, BOOLEAN oder 
Aufzählungstyp sein. 

Die Schleifenvariablen dürfen in der Schleife nicht verändert wer¬ 
den. 

Schleifen dürfen geschachtelt werden. 


Hinweis: Eine Schleife der Form 


FOR Zählvariable:=Anfangswert TO Endwert DO; 

ist ebenfalls möglich. Das Semikolon hinter dem Wort DO stellt eine leere An¬ 
weisung dar. Diese Form kann z.B. als Verzögerungsschleife angewandt wer¬ 
den, da der Rechner in dieser Schleife lediglich zählt. 
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4.2 Die REPEAT-Schleife 

Neben der im vorangegangenen Paragraphen besprochenen FOR-Anweisung 
gibt es in Pascal zwei weitere Möglichkeiten, einen Programmteil wiederholt 
vom Rechner ausführen zu lassen. Beide unterscheiden sich von der FOR- An¬ 
weisung dadurch, daß die Anzahl der Schleifendurchläufe (= Wiederholun¬ 
gen) nicht von vornherein durch die Angabe eines Endwertes festgelegt 
werden muß. Vielmehr wird zur Beendigung der Schleife eine Bedingung - 
die sogenannte Abbruchbedingung - herangezogen. 

Die REPEAT-Schleife ist eine der beiden Möglichkeiten. Sie hat die Form 

REPEAT Anweisung(en) UNTIL Bedingung 

auf Deutsch: WIEDERHOLE Anweisung(en) BIS Bedingung (erfüllt). 

Verdeutlichen wir uns die Arbeitsweise einer solchen Schleife einmal an fol¬ 
gendem Modell: Flugzeuge, die einen Flughafen zur Landung anfliegen, wer¬ 
den gelegentlich angewiesen, eine Warteposition einzunehmen, d.h. Schleifen 
zu fliegen, bis die Freigabe zur Landung erfolgt. In unserer algorithmischen 
Sprache muß das Flugzeug die Anweisung 

WIEDERHOLE Warteschleifen fliegen BIS Freigabe zur Landung erfolgt 

befolgen. Als Flußdiagramm ergibt sich für unser Modell der REPEAT- 
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Wenn die Freigabe zur Landung nicht erfolgt, so stürzt unser Flugzeug ab - 
genau wie unser Programm. Die (Warte-)Schleife wird nur dann verlassen, 
wenn die Abbruchbedingung erfüllt ist, d.h. den Wert TRUE annimmt. 

Sehen wir uns unter diesem Aspekt einmal die folgende Anweisung etwas 
genauer an: 


REPEAT WRITE ('Drucker einschalten') UNTIL Drucker eingeschaltet 


Ist der Drucker nicht eingeschaltet, so hat unsere Abbruchbedingung, die sich 
in Pascal leider nicht so einfach darstellen läßt, den Wert FALSE. Dies hat eine 
Wiederholung der WRITE-Anweisung zur Folge. Erst, wenn der Drucker 
eingeschaltet wird, kann der Rechner die Schleife beenden. 

Ist kein Drucker vorhanden, so rettet uns nur noch die <RESET>-Taste vor 
der Wiederholungswut des Rechners. 

Es ist also peinlich genau darauf zu achten, daß die Abbruchbedingung den 
Wert TRUE überhaupt annehmen kann (Problem der Terminiertheit). Dies ist 
natürlich nur dann möglich, wenn die Voraussetzungen für diese Bedingung in 
der Schleife geändert werden. 

Ein lauffähiges Beispiel für die Verwendung der REPEAT-Schleife ist das fol¬ 
gende kleine Programm. 


PROGRAM Wiederholung; 

VAR ch : CHAR; 

BEGIN 

REPEAT (* aeussere Schleife *) 

REPEAT (* innere Schleife *) 

CLRSCR; (* loescht den Bildschirm *) 

GOTOXY(3,5); (* setzt den Cursor auf die 3-te Spalte 

in der 5-ten Zeile *) 

WRITE('Soll die Schleife verlassen werden? (j/n)'); 

RE AD LN (ch) 

UNTIL (ch='j') OR (ch=' n *); (* innere Schleife *) 

WRITELN; WRITELN(*Gleich geht es weiter*) 

UNTIL ch='j'; (* aeussere Schleife *) 

CLRSCR; 

GOTOXY(10,15) ; 

WRITELN('ENDE* ) 

END. 


Zunächst fällt auf, daß REPEAT-Schleifen genau wie FOR-Schleifen ge¬ 
schachtelt werden können. 
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Was leistet nun das Programm? Wird ein von j oder n verschiedener Buch¬ 
stabe eingegeben, so wird der Bildschirm gelöscht, der Cursor auf die vorge¬ 
gebene Stelle gesetzt, die Frage ausgegeben und erneut ein Zeichen eingelesen. 
Man beachte dabei, daß der Rechner sehr wohl zwischen j und J unterscheidet. 
Die innere Schleife wird also erst verlassen, wenn ein ganz bestimmtes Zei¬ 
chen (hier j bzw. n) eingelesen wurde. Hat die Variable ch den Wert n, wird 
die innere Schleife als eine Anweisung der äußeren wiederholt. Andernfalls 
wird auch die äußere Schleife verlassen und das Programm beendet. 


Bemerkenswert ist ferner, daß die Anweisungen (!) zwischen REPEAT.. UN- 
TIL nicht durch BEGIN und END zu einem Anweisungsblock zusammenge¬ 
faßt sind. 

Die reservierten Wörter REPEAT..UNTIL übernehmen hier die klammernde 
Funktion, die sonst BEGIN und END Vorbehalten ist. Auch das Semikolon vor 
UNTIL kann entfallen. Ist es vorhanden, so wird es - wie auch vor END - als 
leere Anweisung behandelt. 

Wir wollen nun noch ein kleines Problem aus der Mathematik lösen: die Be¬ 
rechnung der Eulerschen Zahl e. Dazu benutzen wir das von den Mathema¬ 
tikern bereitgestellte Wissen, daß sich e über eine Produktreihe berechnen 
läßt: 


11111 1 

e =1+ — + — + — + — + —... + — 

1! 2! 3! 4! 5! n! 

n! = 1 * 2 ♦ 3 * 4 ... ♦ n 

Die Zahl e soll mit der größten dem Rechner möglichen Genauigkeit berechnet 
werden. Dazu brauchen wir eine Schleife, die die oben dargestellten Brüche so 
lange addiert, bis sich keine Änderung des Ergebnisses mehr zeigt. 

Als Abbruchbedingung könnte man den zuletzt berechneten Wert für e mit 
dem neuen Wert vergleichen. Durch Rundungsfehler bei REAL-Zahlen (siehe 
Kapitel 3.2) führt dies jedoch selten zu einem Abbruch, denn gleiche Zahlen 
sind oft für den Rechner nicht gleich. Wir würden damit eine unendlich lange 
Schleife konstruieren. 

Statt dessen benutzen wir eine Hilfsvariable, die den jeweils letzten Wert von e 
bekommt, subtrahieren die Hilfsvariable vom neuen Wert für e und verglei¬ 
chen diese Differenz mit einer sehr kleinen Zahl (abhängig von der Rechenge¬ 
nauigkeit des verwendeten Rechners - nicht Null!). 
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Nun folgt das Programm: 

PROGRAM Euler; 

CONST Delta=lE-10; 

VAR e. Hilf, n, Nenner, Differenz : REAL; 

BEGIN 
e :=1; 

Nenner:=1; 
n:=l; 

REPEAT 
Hilf:=e; 

e:=e + 1/Nenner; 
n:=n+l; 

Nenner:=Nenner * n; 

Differenz:=ABS(Hilf - e) 

UNTIL Diefferenz < Delta; 

WRITELN('Nach ’,n:4:0,' Durchlaeufen ist e=',e:12:10) 
END. 


Merke: 

- Die Abbruchbedingung der REPEAT-Schleife muß ein Ausdruck oder eine 
Variable vom Typ BOOLEAN sein (siehe auch Kapitel 3.5). 

- Die Abbruchbedingung muß in der Schleife verändert werden, da die 
Schleife sonst unendlich lange läuft. 

- Die Schleife wird beendet, wenn die Abbruchbedingung wahr ist. 


REPEAT-Schleife: 

-► CrEPEAT^ t^ Anweisung -^» (UNTIL) ^ Boolescher Ausdruck 




Der Abbruch der REPEAT-Schleife wird nach Ausführung der 
Schleifen-Anweisungen getestet. Daher läuft die Schleife minde¬ 
stens einmal. 

Die Abbruchbedingung wird in der Schleife verändert. 

Auf Terminiertheit der Schleife ist zu achten. 


Die besondere Eigenschaft einer REPEAT-Schleife liegt darin, daß die Ab¬ 
bruchbedingung am Ende der Schleife geprüft wird. Daher läuft eine RE¬ 
PEAT-Schleife mindestens einmal. 
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Terminieriheit 

Es ist stets genau darauf zu achten, daß die Schleife auch tatsächlich terminiert 
(beendet) ist. Wir müssen dazu folgendes überprüfen: 

- Ist in der Abbruchbedingung überhaupt eine Variable vorhanden, die der 
Bedingung den Wert TRUE geben kann? 

- Wird die Abbruchbedingung jemals erreicht? 

4.3 Die WHILE-Schleife 

Beim Anblick einer Museumseisenbahn - besonders wenn sie von einer 
Dampflokomotive gezogen wird - kommen häufig nostalgische Gefühle auf. 
Benutzen wir einen solchen Zug einmal zur Veranschaulichung des dritten 
Typs der in Pascal möglichen Schleifen. Dazu lassen wir ihn, wie bei den ent¬ 
sprechenden touristischen Attraktionen üblich, eine ringförmig angelegte 
Strecke befahren. Nur zum Auffüllen von Wasser und Brennstoff und zum 
Abstellen des Zuges über Nacht wird die Hauptstrecke verlassen und das (ein¬ 
zige) Abstellgleis aufgesucht. Die Betriebsgesellschaft einer solchen Museums¬ 
eisenbahn stellte nun eines Tages einen arg beschränkten, aber trotzdem sehr 
diensteifrigen Lokomotivführer ein. Dieser verließ trotz mannigfaltiger Hin¬ 
weise und Erläuterungen jedesmal die Hauptstrecke, wenn der Zug an der 
Weiche zum Abstellgleis angelangt war. Zum Ausgleich stellte er ihn des öfte¬ 
ren nachts auf der Hauptstrecke ab. Daraufhin erhielt der Lokführer die un¬ 
tenstehende "Dienstanweisung”. Da er sich peinlich genau an sie hielt, waren 
somit alle Unregelmäßigkeiten beseitigt. 

BEGINNE (* Tagewert *) 

Zug vom Abstellgleis fahren; 

WIEDERHOLE 

SOLANGE noch Kohlen und Wasser vorhanden 
TUE Strecke befahren; 

Kohlen und Wasser fassen; 

BIS es Nacht ist; 

Zug auf Abstellgleis fahren 

ENDE. (* Feierabend *) 

Eingeweihte wissen, daß es sich bei dieser "Dienstanweisung" um die um¬ 
gangssprachliche Formulierung eines Algorithmus handelt. Untersuchen wir 
ihn einmal auf seine Struktur: Die uns bereits bekannte Schleife WIEDER- 
HOLE..BIS enthält hier die Anweisung 

SOLANGE noch Kohlen und Wasser vorhanden TUE Strecke befahren; 

Anweisungen dieses Typs werden wir nunmehr als dritte Möglichkeit der 
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Wiederholung kennenlemen. In unserem Beispiel folgt dem reservierten Wort 
SOLANGE (engl. WHILE) eine Bedingung. Ist sie wahr, so wird die Anwei¬ 
sung bzw. der in BEGIN und END gefaßte Anweisungsblock ausgeführt, der 
dem reservierten Wort TUE (engl. DO) folgt. Der Lokomotivführer unserer 
Museumseisenbahn hat also, bevor er die Hauptstrecke befährt, zu prüfen, ob 
noch genügend Brennstoff und Wasser vorhanden sind. Erst wenn dies der 
Fall ist, legt unser Zug eine weitere Runde auf der Hauptstrecke zurück. Die 
Abzweigung zum Abstellgleis wird erst dann benutzt, wenn es an einem von 
beidem fehlt, d.h. die Bedingung falsch wird. 

Zusammengefaßt hat die WHILE-Schleife folgende Form: 

WHILE Bedingung DO Anweisung/sblock 

In einem weiteren kleinen Programmbeispiel wollen wir die Quersumme 
einer ganzen Zahl berechnen und ausgeben. 

Dazu wird eine ganze Zahl eingegeben und folgende Berechnung angestellt: 
Solange die Zahl noch größer als Null ist, wird der Rest beim Teilen durch 10 
(mit MOD), d.h. die jeweils letzte Ziffer, aufaddiert und die Zahl durch 10 ge¬ 
teilt. 

Zur Lösung des Problems benutzen wir die WHILE-Schleife. Sie hat die 
Form: WHILE Bedingung DO Anweisung(en) oder auf deutsch: SOLANGE 
Bedingung TUE Anweisung(en). 

Das Programm dazu sieht folgendermaßen aus: 

PROGRAM Quersumme; 

VAR n, Summe : INTEGER; 

BEGIN 

WRITE('Eingabe der Zahl: '); 

READLN(n); 

Summe := 0; 

WHILE n > 0 DO BEGIN 

Summe := Summe + n MOD 10; 
n := n DIV 10 

END; (f* der WHILE-Schleife *) 

WRITELN('Die Quersumme ist: Summe:4) 

END. 

Solange die Bedingung den Wahrheitswert TRUE hat, läuft die Schleife. Fol¬ 
gendes muß dabei beachtet werden: 

- Die Bedingung der WHILE-Schleife muß ein Ausdruck oder eine Variable 
vom Typ BOOLEAN sein (siehe auch Kapitel 3.5). 
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- Die Bedingung muß in der Schleife verändert werden, da die Schleife sonst 
unendlich lange läuft. 

- Die Schleife wird beendet, wenn die Bedingung falsch ist. 

Die besondere Eigenschaft einer WHILE-Schleife liegt darin, daß die Bedin¬ 
gung am Anfang der Schleife geprüft wird. Daher läuft eine WHILE-Schleife 
möglicherweise keinmal. In einem Flußdiagramm läßt sich das wie folgt dar¬ 
stellen: 



Terminiertheit 


Es ist peinlich genau darauf zu achten, daß die Schleife auch tatsächlich termi¬ 
niert (beendet) ist. Wir müssen dazu folgendes überprüfen: 


- Ist in der Bedingung überhaupt eine Variable vorhanden, die der Bedingung 
den Wert TRUE geben kann? 

- Wird die Bedingung jemals erreicht? 


WHILE-Schleife: 


—► (WHILE) —► Boolescher Ausdruck 


Der Abbruch der WHILE-Schleife wird vor Ausführung der 
Schleifen-Anweisungen getestet. Daher wird die Schleife mög¬ 
licherweise keinmal durchlaufen. 

Die Bedingung wird in der Schleife verändert. 

Auf Terminiertheit der Schleife ist zu achten. 
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Unterschied REPEAT- WHILE 

An dieser Stelle sei noch einmal auf die Unterschiede der Schleifenarten hinge¬ 
wiesen. Bei der REPEAT-Schleife wird die Bedingung nach Ausführung der 
Schleifenanweisungen auf den Wahrheitswert TRUE überprüft, bei der 
WHILE-Schleife vorher. 

Die REPEAT-Schleife läuft, während die Bedingung FALSE zutrifft (d.h. bis 
sie TRUE ist); die WHILE-Schleife läuft, solange die Bedingung den Wert 
TRUE hat. 

Man kann beide Schleifenformen durch die jeweils andere ersetzen. Dazu be¬ 
trachten wir unser Programm QUERSUMME mit einer REPEAT-Schleife: 

PROGRAM Quersumme; 

VAR n, Summe : INTEGER; 

BEGIN 

WRITE('Eingabe der Zahl: ’); 

READLN(n); 

Summe := 0; 

REPEAT 

Summe := Summe + n MOD 10; 
n := n DIV 10 
UNTIL n <= 0; 

WRITELN('Die Quersumme ist: Summe:4) 

END. 
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Kapitel 5 

Entscheidungen 


5.1 Entscheidungen mit IF 

Entscheidungen gibt’s ... 

Soll ich mir einen Computer kaufen oder nicht? 

Diese Frage kann ich mir ganz einfach beantworten: 

Wenn 

ich genug Geld habe und einen Computer besitzen möchte, 
dann 

gehe ich in einen Computer-Shop und kaufe einen. 

Was ist aber, wenn die Bedingungen nicht zutreffen? 

Nun, dann geht das Leben eben weiter. 


In diesem Monolog (den manch ein Computerfan kennt) kommt eine Entschei¬ 
dung vor, die von zwei Bedingungen abhängt. Beide Bedingungen müssen zu¬ 
treffen, was durch das Wort "und" bestimmt wird. Wir kennen schon Aus¬ 
drücke und Verknüpfungen dieser Art. Sie sind vom Typ BOOLEAN, denn 
sie können die Wahrheitswerte "Wahr" oder "Falsch" annehmen. Wenn also 
beide Bedingungen "wahr" sind, dann habe ich grünes Licht für den Compu¬ 
terkauf. Sollte es nicht der Fall sein, geht mein Leben programmgemäß 
weiter. 

Auch in der Programmiersprache Pascal gibt es diese Situation. Oft sollen eine 
oder mehrere Anweisungen nur dann ausgeführt werden, wenn eine Bedin¬ 
gung oder eine Kombination von Bedingungen erfüllt ist. Dazu übersetzen wir 
einfach WENN..DANN ins Englische und erhalten IF..THEN. Dieses sind ge¬ 
nau die reservierten Wörter für eine bedingte Ausführung von Anweisungen. 


Die Form ist: 


IF logischer Ausdruck THEN Anweisung(en); 
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Wenn mehrere Anweisungen ausgeführt werden sollen, werden sie wieder mit 
BEGINNEND zusammengefaßt. Der logische Ausdruck muß den Wahrheits¬ 
wert TRUE haben, damit die Anweisung(en) ausgeführt wird (werden), an¬ 
dernfalls wird das Programm weiter fortgeführt. Aus Kapitel 3.5 kennen wir 
schon logische Ausdrücke. Beispiele sind: 

B : wobei B vom Datentyp BOOLEAN ist 

B =TRUE 
B =FALSE 

X < Y : wobei X und Y vom gleichen Typ sind 

(X < Y) AND (X > Z) 

NOT (A = B) 

Hinweis: Werden mehrere logische Ausdrücke durch Verknüpfungsoperato- 
ren (AND, OR, NOT) zusammengefaßt, auf korrekte Klammerung achten! 

Wir wollen uns nun ein kleines Beispiel anschauen: 

PROGRAM Waswohl; 

VAR I : INTEGER; 

BEGIN 

FOR I:=1 TO 99 DO BEGIN 
WRITE (1:3); 

IF I MOD 9=0 THEN WRITELN 
END (* der FOR-Schleife *) 

END. 

Frage: Was bewirkt dieses kleine Programm? 

Einerseits können wir es in den Rechner tippen und ausprobieren, andererseits 
läßt sich die Funktion natürlich auch auf dem Papier ermitteln. 

Im Programm läuft eine Schleife von 1 bis 99. Bei jedem Schleifendurchlauf 
wird die Schleifenvariable ohne Zeilenvorschub in einem Feld von 3 Zeichen 
geschrieben. Läßt sich die Variable durch 9 teilen (I MOD 9 = 0), wird ein 
Zeilenvorschub gemacht, der die Zahlen in Neunerkolonnen schreibt: 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

90 

91 

92 

91 

92 

93 

94 

95 

96 

97 

98 

99 
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In dem vorangegangenen Problem handelte es sich um eine einseitige Ent¬ 
scheidung, denn für den Fall, daß die Bedingung das Ergebnis FALSE hat, 
wurde mit der nächsten Anweisung fortgefahren. 

Nun sind in Pascal aber auch zweiseitige Entscheidungen vorgesehen. Das 
Wörtchen ELSE (andernfalls) gibt uns die Möglichkeit, bei negativem Aus¬ 
gang (FALSE) der Entscheidung einen anderen Anweisungsteil ausführen zu 
lassen. 

Die Form ist: 


IF logischer Ausdruck THEN Anweisung(en) ELSE Anweisungen(en); 


Achtung: Vor ELSE darf kein Semikolon stehen! 

Wir wollen nun ein Beispielprogramm entwerfen: Zahlenraten. Der Rechner 
erzeugt eine Zufallszahl zwischen 0 und 99. Der Benutzer darf 7mal eine Zahl 
raten. Wenn die Zahl größer oder kleiner ist als die Zufallszahl, dann wird 
dies dem Benutzer mitgeteilt. Bei richtiger Eingabe der Zahl beglückwünscht 
der Rechner den Benutzer. 

Das Programm sieht so aus: 

PROGRAM Zahlenraten; 

VAR Ratezahl, Zufallszahl, I : INTEGER; 

Geraten : BOOLEAN; 

BEGIN 

WRITELN('Zahlenraten zwischen 0 und 99'); 

WRITELN; 

RANDOMIZE; (* erzeugt neue Zufallszahl *) 

Zufallszahl RANDOM (99); (* Zahl zwischen 0 u. 99 *) 

Geraten :*» FALSE; 

I := 1; 

REPEAT 

WRITE('Ratezahl: ') ; 

READLN(Ratezahl) ; 

IF Ratezahl=Zufallszahl THEN Geraten:=TRUE 
ELSE BEGIN 

IF Ratezahl>Zufallszahl THEN WRITELN ('zu gross') 
ELSE WRITELN('zu klein') 

END; (* von ELSE *) 

I:-I+l 

UNTIL Geraten OR (I>7); 

IF Geraten THEN BEGIN 

WRITELN('Herzlichen Glueckwunsch!'); 

IF I<3 THEN WRITELN('Das war Spitze!') 

END (* von IF *) 

ELSE WRITELN('Die Zahl war: ',Zufallszahl:3) 

END. 
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Bemerkung: Die Erzeugung von Zufallszahlen zwischen 0 und 99 geschieht 
im Turbo Pascal durch die Funktion RANDOM (99). Allgemein erzeugt 
RANDOM (n) eine ganze Zahl als Zufallszahl zwischen 0 und n. 

Soll bei jedem neuen Durchlauf des Programms eine neue Zufallszahl erzeugt 
werden, geben wir RANDOMIZE ein. (Siehe auch Kapitel 6.) 

Aufgabe: Verändern Sie das Programm so, daß der Benutzer entscheiden 
kann, ob er das Spiel noch einmal spielen will. 

In dem vorangegangenen Programm wurden auch geschachtelte Entscheidun¬ 
gen verwendet. Dies ist bei beiden IF-Konstruktionen möglich. Dabei ist zu 
beachten, daß eine IF-Abfrage, die von einer anderen abhängt, nur dann aus¬ 
geführt wird, wenn die erste Abfrage ein wahres Ergebnis hat. 

Beispiel: 

IF Tag = 13 THEN IF Wochentag = Freitag THEN 
WRITELN('Vorsicht heute!'); 

IF (Tag = 13) AND (Wochentag = Freitag) THEN 
WRITELN('Vorsicht heute!')/ 

Beide Konstruktionen haben den gleichen Effekt. Nur wenn die Variable Tag 
gleich 13 ist und die Variable Wochentag gleich Freitag ist, wird der Text ge¬ 
schrieben. Die erste (geschachtelte) Konstruktion hat aber den Vorteil, daß 
nur, wenn Tag gleich 13 ist, der Wochentag auch noch überprüft wird. Dies 
spart natürlich Rechenzeit, da in der zweiten Konstruktion beide Variablen 
immer geprüft werden. 


IF.. THEN.. ELSE 


Boolescher Ausdruck } -» ^THEN Anweisung ELSE) h^ | Anweisung 


Die Konstruktion 

IF logischer Ausdruck THEN Anweisung(en) ELSE Anweisung(en) 

stellt eine zweifache Verzweigung dar. Wenn der logische 
Ausdruck wahr ist, wird der erste Anweisungsteil ausgeführt, 
andernfalls der zweite Anweisungsteil. 

Hinweis: In dem Syntaxdiagramm für IF...THEN...ELSE steckt auch 
die IF...THEN-Konstruktion. Das ist das allgemeinere Diagramm. 
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Fehlerquellen: Bei geschachtelten Verzweigungen kann es insbesondere mit 
der IF..THEN..ELSE-Konstruktion leicht zu Fehlern kommen, wenn man 
nicht sorgfältig plant. 


Wir wollen uns ein Beispiel einer Schachtelung ansehen: 


IF Spannung >= 2 THEN 
IF Spannung > 20 THEN 
IF Spannung > 100 THEN 

WRITELN('Bereich ueberschritten') 

ELSE WRITELN('grosser Bereich') 

ELSE WRITELN('normaler Bereich') 

ELSE WRITELN('Spannung unter 2 V') ; 

Diese Meßbereichsauswahl für ein Spannungsmeßgerät hat folgende Funktion: 


Bei Spannungen größer als 100 V = Meßbereichsüberschreitung 

Bei Spannungen zwischen 20 V und 100 V = großer Bereich 
Bei Spannungen zwischen 2 V und 20 V = normaler Bereich 
Bei Spannungen unter 2 V = Meßbereich unter 2 V 

5.2 Entscheidungen mit CASE 

Würden Sie folgende Programmsequenzen in Ihrem Programm dulden? 

IF Tag = 0 THEN WRITELN('Sonntag') 

ELSE IF Tag = 1 THEN WRITELN('Montag') 

ELSE IF Tag = 2 THEN WRITELN('Dienstag') 

ELSE IF Tag = 3 THEN WRITELN('Mittwoch') 

ELSE IF Tag = 4 THEN WRITELN('Donnerstag') 

ELSE IF Tag = 5 THEN WRITELN('Freitag') 

ELSE WRITELN('Samstag'); 


Furchtbar unübersichtlich und schreibintensiv. Als Alternative zu dieser 
Mehrfachentscheidung mit IF..THEN..ELSE bietet Pascal die Mehrfachent¬ 
scheidung mit CASE: 

CASE Tag OF 
0: WRITELN('Sonntag'); 

1: WRITELN('Montag'); 

2: WRITELN('Dienstag'); 

3: WRITELN('Mittwoch'); 

4: WRITELN('Donnerstag') ; 

5: WRITELN('Freitag') 

ELSE 

WRITELN('Samstag') 

END; 



84 


Schneider CPC - Arbeiten mit Turbo Pascal 


Wir haben es hier mit einer Fallunterscheidung zu tun. Für den Fall (CASE), 
daß Tag von (OF) der Form einer der folgenden Fälle ist, wird ein Anwei¬ 
sungsteil ausgeführt. Nach der Aufzählung der möglichen Fälle kann nach 
ELSE ein Anweisungsteil folgen, der ausgeführt wird, wenn keiner der Fälle 
zutrifft. Die ganze Fallunterscheidung wird mit END abgeschlossen (vor dem 
END braucht kein Semikolon zu stehen). 


CASE: 



Die Mehrfachentscheidung mit CASE hat die Form 


CASE Variable OF 

Wertl : Anweisung(en)1/ 
Wert2 : Anweisung(en)2; 
Wert3 : Anweisung(en)3/ 

Wertn : Anweisung(en) n 
ELSE 

Anweisung(en) 

END; 


Wenn eine Anweisung von mehreren Werten abhängen soll, 
werden die Werte durch Komma getrennt. 

Die Variable muß von einem skalaren Datentyp, nicht aber vom 
Typ REAL sein, d.h. Aufzählungen, Unterbereich, INTEGER, 
CHAR, BOOLEAN. 


Vor den Doppelpunkten der CASE-Anweisung können auch mehrere Werte 
stehen, die dann durch Kommata getrennt werden. 

Beispiel: CASE Frage OF 

'E','e': Eingabe; 

'A','a': Ausgabe; 

'S','s': Sortieren; 

'D','d': Drucken; 

'F','f': Finden; 

'Z','z': Ende 
END; 
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Eine solche CASE-Anweisung könnte aus einem Menü stammen. Hierbei wird 
dem Benutzer z.B. auf dem Bildschirm angeboten: 

Datenverarbeitung, waehlen Sie: 

E(eingabe von Daten 
A(usgabe von Daten 
S (ortieren 
D(rucken 

F(inden nach Kriterien 
Z(um Schluss 

Der Benutzer braucht nur den ersten Buchstaben (Eingabe z.B. mit READ 
oder READ(KBD ...)) seiner Wahl einzutippen, und das Programm führt ent¬ 
sprechende Anweisungen (evtl, ganze Prozeduren) aus. 
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Kapitel 6 

Unterprogramme 


6.1 Prozeduren 

Machen wir noch einen kleinen Ausflug in die Mathematik. Es gibt eine Reihe 
von Taschenrechnern, die die Bruchrechnung beherrschen. Schade, daß unser 
Computer das nicht kann, oder doch? 

Eigentlich ist die Sache doch gar nicht so schwer. Wir wollen zuerst einmal ein 
kleines Programm schreiben, das einen Bruch kürzt. Hier ist es schon: 

PROGRAM Bruch; 

VAR Z1,Z2,N1,N2 : INTEGER; (* fuer Zaehler und Nenner *) 

BEGIN 

Eingabe; 

Kuerze; 

Ausgabe 

END. 

Es handelt sich bisher nur um den Programmkopf und das Hauptprogramm. 
Die scheinbar neuen Befehle Eingabe, Kuerze und Ausgabe müssen noch zum 
Leben erweckt werden. Des Rätsels Lösung liegt darin, daß wir Prozeduren 
benutzen. 

Eine Prozedur ist ein Programmteil (auch Unterprogramm genannt), der 
unter einem Namen aufgerufen werden kann. 


Die Prozedur wird in der Form 


PROZEDURE <Name>; 
CONST 
VAR 
BEGIN 

<Prozedurtext> 

END; 


geschrieben. 
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Die Prozedurtexte sind Teile des Deklarationsteils des Programms. Vom Pro¬ 
gramm aus wird die Prozedur aufgerufen, indem ihr Name in einer Anwei¬ 
sungszeile genannt wird. 

- Prozeduren können auch von anderen Prozeduren aus aufgerufen werden. 

- Prozeduren können mehrmals aufgerufen werden. 

- Es ist zu beachten, daß eine bestimmte Reihenfolge eingehalten wird; eine 
Prozedur, die von einer anderen aufgerufen wird, muß auch vor dieser 
stehen. 

Sie haben sicher bemerkt, daß Prozeduren auch eigene Variablen und Kon¬ 
stanten haben können. Dabei gelten folgende Regeln: 

- Variablen und Konstanten des Hauptprogramms (vor den Prozeduren de¬ 
klariert) nennen wir "global". Sie haben im gesamten Programm Gültig¬ 
keit, d.h. auch in den Prozeduren. 

- Variablen und Konstanten einer Prozedur werden "lokal" genannt. Sie ha¬ 
ben nur in dieser Prozedur Gültigkeit. 

- Sollten Variablen oder Konstanten von Hauptprogramm und Prozedur den¬ 
selben Namen tragen (was erlaubt ist), so gilt immer der lokale Name. 

Machen Sie möglichst oft Gebrauch von lokalen Variablen. Durch sie ist die 
Prozedur nicht mehr so stark (oder gar nicht) abhängig von Gegebenheiten des 
Hauptprogramms, und so kann die Prozedur eventuell leicht in anderen Pro¬ 
grammen verwendet werden. 

Nun aber zurück zu unserem Mathematikproblem. Wir können einen Bruch in 
sehr einfacher Weise kürzen, indem wir versuchen, Zähler und Nenner mit 
Eins anfangen durch immer größer werdende Zahlen zu teilen. Die größte 
Zahl, durch die sowohl Zähler als auch Nenner teilbar ist, stellt den größten 
gemeinsamen Teiler (ggT) dar. Mit ihm kürzen wir dann den Bruch. Die 
größte Zahl, die wir finden, kann höchstens das Minimum von Zähler und 
Nenner sein. Die kleinste Zahl ist sicher Eins, weil sich beide durch Eins tei¬ 
len lassen. 


PROCEDURE Kuerze; 

VAR I, Teiler, Min : INTEGER; 

BEGIN 

IF Z1<N1 THEN Min:=Zl 
ELSE Min:=Z2; 

FOR I:=1 TO Min DO 

IF (ZI MOD 1=0) AND (NI MOD 1=0) 
THEN Teiler:=I; 

Z2:=Z1 DIV Teiler; 

N2:=N1 DIV Teiler 
END; 
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Die beiden anderen Prozeduren sind so einfach, daß wir sie sofort im gesam¬ 
ten Programm erstellen können. 

PROGRAM Bruch; 

VAR Z1,Z2,N1,N2 : INTEGER; 

PROCEDURE Eingabe; 

BEGIN 

WRITE('Zaehler: ') ; 

READLN(ZI) ; 

WRITE('Nenner: ') ; 

READLN(NI) 

END; 

PROCEDURE Kuerze; 

VAR I, Teiler, Min : INTEGER; 

BEGIN 

IF Z1<N1 THEN Min:=Zl 
ELSE Min:=Z2; 

FOR I:=1 TO Min DO 

IF (ZI MOD 1=0) AND (NI MOD 1=0) 

THEN Teiler:=I; 

Z2:=Z1 DIV Teiler; 

N2:=N1 DIV Teiler 
END; 

PROCEDURE Ausgabe; 

BEGIN 

WRITELN(ZI:5, ' ' ,Z2:5); 

WRITE LN ( '- = -'); 

WRITELN(NI:5, ' ',N2:5) 

END; 

BEGIN (* Hauptprogramm *) 

Eingabe; 

Kuerze; 

Ausgabe 

END. 


Nun kann unser Schneider CPC endlich kürzen. Allerdings sollten wir uns 
damit noch nicht begnügen. Die Prozedur Kuerze hat immer noch einen klei¬ 
nen Mangel. Sie braucht, so wie wir sie geschrieben haben, unbedingt die glo¬ 
balen Variablen ZI, Z2, NI, N2. Dieser Mangel läßt sich dadurch beheben, 
daß wir eine andere Form von Prozeduren verwenden. 

Prozeduren mit Variablenübergabe 

In Pascal gibt es die Möglichkeit, einer Prozedur eine oder mehrere Variablen 
zu übergeben und diese dann von der Prozedur verändert zurückzubekom¬ 
men. Die Form sieht dann folgendermaßen aus: 
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PROCEDURE <Name> (VAR . . . ) ; 
CONST 
VAR...; 

BEGIN 

END; 


In der Klammer hinter dem Prozedumamen steht die sogenannte Parameter¬ 
liste. Hier werden die Variablen aufgeführt, die von der Prozedur verändert 
werden sollen. 

Beispiele: 

PROCEDURE Test (VAR I : INTEGER); 

oder 

PROCEDURE Mehr (VAR A, B : CHAR; VAR C : REAL); 


Nach diesen Beispielen muß die Prozedur Test mit genau einer Variablen vom 
Typ INTEGER aufgerufen werden. Die Prozedur Mehr muß dagegen mit 
zwei Variablen vom Typ CHAR und einer Variablen vom Typ REAL aufge¬ 
rufen werden - und zwar genau in dieser Reihenfolge. Die Variablen werden 
durch Kommata voneinander getrennt. 


Unsere Prozedur Kuerze könnte nun so aussehen: 

PROCEDURE Kuerze (VAR A, B : INTEGER); 
VAR I, Teiler, Min : INTEGER; 

BEGIN 

IF A<B THEN Min:=A 

ELSE Min:=Z2; 

FOR I:=1 TO Min DO 

IF (A MOD 1=0) AND (B MOD 1=0) 
THEN Teiler:=I; 

A:=A DIV Teiler; 

B:=B DIV Teiler 
END; 


Der Aufruf der Prozedur mit den beiden INTEGER-Variablen Z und N 

Kuerze (Z,N); 

hat dann den Effekt, daß nach dem Abarbeiten dieser Prozedur die Variablen 
Z und N gekürzt sind. 
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Prozeduren mit Wertübergabe 

Es gibt in Pascal auch noch eine andere Art der Parameterübergabe an Proze¬ 
duren, die Wertübergabe. Bei dieser Art wird der Prozedur nur ein Wert 
übergeben, mit dem die Prozedur arbeitet, der aber nicht verändert wird. Die 
Form ist fast identisch mit der Variablenübergabe, mit der kleinen Änderung, 
daß hier das Wörtchen VAR in der Parameterliste entfällt. 


Schreiben wir die Prozedur Ausgabe z.B. in dieser Art: 


PROCEDURE Ausgabe (A,B,A1,B1 : INTEGER); 
BEGIN 

WRITELN(A:5,* ’,A1:5); 

WRITELN ( ’- = -'); 

WRITELN(B:5,' ' ,B1:5) 

END; 


Ein Aufruf der Prozedur 
Ausgabe(12,24,1,2); 

hätte dann die Ausgabe 
12 1 
24~~2 

zur Folge. Bemerkenswert ist, daß wir die Prozedur Ausgabe auch mit vier 
Variablen vom Typ INTEGER oder mit einer Mischung aus Variablen und 
Konstanten hätten aufrufen können. Es müssen halt nur vier Werte (Variablen 
oder Konstanten) des richtigen Typs in der richtigen Reihenfolge übergeben 
werden. 


Unser Programm könnte dann folgendermaßen aussehen: 


PROGRAM Bruch; 

VAR Z1,Z2,N1,N2 : INTEGER; 

PROCEDURE Eingabe (VAR Z,N : INTEGER); 
BEGIN 

WRITE('Zaehler: '); 

READ(Z); 

WRITE('Nenner: '); 

READ (N) 

END; 
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PROCEDURE Kuerze (VAR A,B : INTEGER); 
VAR I, Teiler, Min : INTEGER; 

BEGIN 

IF A<B THEN Min:=A 
ELSE Min:=B; 

FOR I:=1 TO Min DO 

IF (A MOD 1=0) AND (B MOD 1=0) 
THEN Teiler:=I; 

A:=A DIV Teiler; 

B:=B DIV Teiler 
END; 

PROCEDURE Ausgabe (A,B,A1,B1 : INTEGER); 
BEGIN 

WRITELN(A:5,' ’,A1:5); 

WRITELN ( *- = -'); 

WRITELN(B :5,* ’,B1:5) 

END; 

BEGIN (* Hauptprogramin *) 

Eingabe(ZI,NI); 

Z2:=Z1; N2:=N1; 

Kuerze(Z2,N2); 

Ausgabe(ZI,NI,Z2,N2) 

END. 


Fassen wir noch einmal zusammen: Prozeduren sind Unterprogramme, die 
einen Namen haben, unter dem sie von anderen Programmteilen aus auf geru¬ 
fen werden. Sie können die Variablen und Konstanten des Hauptprogramms 
benutzen (globale Variablen und Konstanten) oder eigene Variablen oder 
Konstanten (lokale Variablen und Konstanten) haben, die im Deklarationsteil 
der Prozedur erklärt werden. 


Außerdem können wir einer Prozedur Werte oder Variablen übergeben, mit 
denen dann in der Prozedur gearbeitet wird. 


Werden der Prozedur Werte (ohne VAR) übergeben, wird diese Übergabeart 
auch "call-by-value" genannt. 


Wenn der Prozedur Variablen (mit VAR) übergeben werden, werden diese 
von der Prozedur aufgenommen und nach Abarbeitung wieder geändert zu¬ 
rückgegeben. Diese Art wird "call-by-reference" oder ,, call-by-variable ,, ge¬ 
nannt. 

Machen wir uns den Unterschied hier noch einmal ganz klar: 
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PROGRAM Unterschied; 

VAR x : INTEGER; 

PROCEDURE Aenderenichts (a : INTEGER); 
BEGIN 

a i = a * 2; 

WRITELN(a) 

END; 

PROCEDURE Aenderewas (VAR a : INTEGER); 
BEGIN 

a := a * 2; 

WRITELN(a) 

END; 

BEGIN (* Hauptprogramm *) 
x : = 5; 

WRITELN(x); 

Aenderenichts (x); 

WRITELN(x); 

Aenderewas (x); 

WRITELN(x) 

END. 


Das Programm gibt folgende Zahlenreihe aus: 

5 

10 

5 

10 

10 

Warum? 


5: x hat den Wert 5 bekommen, der mit WRITELN (x) ausgegeben wird. 

10: Der Wert von x wird an die Prozedur Aenderenichts übergeben, hier mit 
2 multipliziert und mit WRITELN (a) ausgegeben. 

5: Nach Durchlaufen der Prozedur hat sich die Variable x nicht geändert. 

Mit WRITELN (x) wird sie geschrieben. 

10: Die Variable x wird der Prozedur Aenderewas übergeben, hier verdop¬ 
pelt, mit WRITELN (a) ausgegeben, und der Wert von A wird im Haupt¬ 
programm der Variablen x wieder zurückgegeben. 

10: Nun hat x also den Wert 10, der mit WRITELN (x) ausgegeben wird. 


Fehlerquelle: Folgender Aufruf der Prozedur Aenderewas wäre völlig falsch: 


Aenderewas (5); 


falsch! 
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denn der Prozedur muß eine Variable ("call-by-variable") übergeben werden, 
damit der Wert dieser Variablen nach Durchlaufen der Prozedur verändert 
werden kann. Bei der Konstanten 5 wäre dies nicht möglich. 


In diesem kleinen Beispiel haben Sie gesehen, daß die Übergabeparameter der 
Prozeduren andere Namen haben als die Variablen im Hauptprogramm. Dies 
ist nicht unbedingt nötig. Hätten wir die Variable des Hauptprogramms auch X 
genannt, wäre sie eine andere Variable (ein anderer Speicherplatz) als in den 
Prozeduren! 


Ein weiteres kleines Programmbeispiel soll verdeutlichen, daß wir einer Pro¬ 
zedur auch mehrere Parameter übergeben können, die nicht von der gleichen 
Übergabeart sind. 


Es handelt sich um ein Programm, das zu einem eingegebenen Datum den 
dazugehörigen Wochentag ermittelt. Dazu wird in einer Prozedur Berechne, 
der wir die Werte Tag, Monat und Jahr übergeben, nach einer hier nicht wei¬ 
ter ausgeführten Formel eine Zahl zwischen 0 und 6 ermittelt, die einer vier¬ 
ten Variablen ("call-by-variable") wieder zurückgegeben wird. 


PROGRAM Datum; 

VAR Tag,Monat,Jahr,Tagnummer : INTEGER; 

Frage ; CHAR; 

PROCEDURE Eingabe (VAR Tag,Monat,Jahr : INTEGER); 

VAR Februar : INTEGER; 

Erfolg : BOOLEAN; 

BEGIN 

WRITE('Das Programm ermittelt zu einem beliebigen’) 

WRITELN('Datum innerhalb'); 

WRITE('des Zeitraumes 1701 bis 2099 den') 

WRITELN('dazugehoerigen Wochentag.'); 

WRITELN('Geben Sie bitte das Datum ein:'); 

WRITELN; 

Erfolg := TRUE; 

REPEAT 

IF NOT Erfolg THEN WRITELN ('Falsche Eingabe ! Neu 

eingeben:'); 

WRITE('Geben Sie den Tag ein:'); 

READLN(Tag); 

WRITE('geben Sie den Monat ein:'); 

READLN(Monat); 

WRITE('Geben Sie das Jahr ein:'); 

READLN(Jahr); 
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IF Jahr<100 THEN Jahr:-1900+Jahr; (* fuer Schreibfaule *) 

IF (Jahr<1701) OR (Jahr>2099) THEN Erfolg :- FALSE; 

(* nicht im Bereich *) 
IF Monat>12 THEN Erfolg :- FALSE; (* Monat zu gross *) 

IF (Jahr MOD 4-0) THEN Februar:«29 ELSE Februar:-28; 

(* Schaltjahr *) 

IF (Jahr MOD 100 - 0) THEN Februar:-28; (* kein Schaltjahr *) 
IF (Jahr MOD 400 - 0) THEN Februar:-29; (* Schaltjahr *) 

IF Tag>31 THEN Erfolg FALSE; (* Tag zu gross *) 

CASE Monat OF 

2 : Erfolg:- (TagOFebruar) ; 

4 : Erfolg:-(Tag<-30); 

6 : Erfolg:-(Tag<-30); 

9 : Erfolg:-(Tag<-30); 

11 : Erfolg:-(Tag<-30) 

END; (* von Case *) 

UNTIL Erfolg 
END; (* von Eingabe *) 

PROCEDURE Berechne (T, M, J : INTEGER; VAR Wtag : INTEGER); 

VAR X,Y,Z : INTEGER; 

BEGIN 

IF M>2 THEN M:-M-2 
ELSE BEGIN 
M:-M+10; 

J:—J-l 

END; (* Else *) 

X:-J MOD 100; 

Z:-J DIV 100; 

Y:-(13*M-1) DIV 5 + X DIV 4 + Z DIV 4; 

Wtag:-(X+Y+T-2*Z) MOD 7 
END; (* Berechne *) 

PROCEDURE Ausgabe (Tagnummer : INTEGER); 

BEGIN 

CLRSCR; 

WRITELN;WRITELN;WRITELN; 

IF (Tagnummer-5) AND (Tag-13) THEN BEGIN 

WRITELN('An Ihrer Stelle wuerde ich mich vorsehen, denn 

der'); 

WRITELN(' 13.',Monat,'.',Jahr,’ ist ein Freitag.') 

END 

ELSE 

BEGIN 

WRITE ('Der ',Tag,MonatJahr,' ist ein '); 

CASE Tagnummer OF 

0 : WRITELN('Sonntag'); 

1 : WRITELN('Montag'); 

2 : WRITELN('Dienstag'); 

3 : WRITELN('Mittwoch'); 

4 : WRITELN('Donnerstag'); 

5 : WRITELN('Freitag'); 

6 : WRITELN('Samstag') 

END (* von Case *) 

END (* von Else *) 

END; (* von Ausgabe *) 






96 


Schneider CPC - Arbeiten mit Turbo Pascal 


BEGIN (* Hauptprogramm *) 

REPEAT 

CLRSCR; 

Eingabe (Tag,Monat,Jahr) ; 

Berechne(Tag,Monat,Jahr,Tagnummer); 

Ausgabe(Tagnummer); 

WRITELN; 

WRITE(*Wuenschen Sie eine erneute Berechnung (J/N) ? '); 
READ(Frage) 

UNTIL (Frage - 'N') OR (Frage - ’n') 

END. 


Zu Beginn des Kapitels war die Rede von einem Bruchrechenprogramm, das 
unserem Schneider CPC die gleichen Fähigkeiten geben soll, wie sie ein kom¬ 
fortabler Taschenrechner auch besitzt. Weil wir die Prozeduren Eingabe und 
Kuerze schon universell verwendbar geschrieben haben, arbeiten wir sie 
gleich in das Programm ein. 

Die Prozedur Ausgabe muß geringfügig geändert werden. Außerdem sind 
vier Prozeduren für die vier Grundrechenarten zu erstellen. Die mathemati¬ 
schen Hintergründe sind sehr einfach und direkt aus den Prozeduren zu ver¬ 
stehen. 

Der Einfachheit halber sind die Prozeduren für die Grundrechenarten nicht 
mit Übergabeparametem geschrieben. Dies würde das ganze Programm recht 
aufwendig machen und steht wahrscheinlich in keinem Verhältnis zum Nutzen. 

PROGRAM Bruchrechnung; 

VAR Z1,Z2,N1,N2,ZE,NE : INTEGER; 

OP : CH AR; 

PROCEDURE Eingabe (VAR Z,N : INTEGER); 

BEGIN 

WRITE('Zaehler: ’); 

READLN(Z); 

WRITE('Nenner: '); 

READLN(N) 

END; 

PROCEDURE Kuerze (VAR A,B : INTEGER); 

VAR I, Teiler, Min : INTEGER; 

BEGIN 

IF A<B THEN Min:=A 
ELSE Min:=B; 

FOR I:=1 TO Min DO 

IF (A MOD 1=0) AND (B MOD 1=0) 

THEN Teiler:=I; 

A:=A DIV Teiler; 

B:=B DIV Teiler 
END; 
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PROCEDURE Ausg. (Z1,N2,Z2,N2,ZE,NE : INTEGER;OP ; CHAR); 
BEGIN 

WRITELN (Z1: 4, * ',Z2:4,' ’^ZEM); 

WRITELN ( '-', OP, ’- = -') ; 

WRITELN(NI:4, 1 ',N2:4, • ’,NE:4) 

END; 


PROCEDURE Plus; 

BEGIN 

ZE:=Z1 * N2 + Z2 * NI; 
NE:=N1 * N2 
END; 


PROCEDURE Minus; 

BEGIN 

ZE:*=Z1 * N2 - Z2 * NI; 
NE:=N1 * N2 
END; 


PROCEDURE Mal; 
BEGIN 

ZE:=Z1 * Z2; 
NE:*N1 * N2 
END; 


PROCEDURE Durch; 
BEGIN 

ZE:=Z1 * N2; 
NE : *=Z2 * NI 
END; 


BEGIN (* Hauptprogramm *) 

WRITELN( 1 1.Bruch: ') ; 

Eingabe(Z1,N1) ; 

WRITELN(*2.Bruch: ') ; 

Eingabe(Z2,N2) ; 

WRITECOperator (+-*/): *); 

REPEAT READ (OP) UNTILOP IN [•+%! 
CASE OP OF 
•+• : Plus; 

*-' : Minus; 

: Mal; 

*/' : Durch 

END; 

Kuerze(ZE,NE); 

Ausgabe(ZI,NI,Z2 f N2,OP) 

END. 


Die leistungsstarken Möglichkeiten, die Pascal mit seinen Prozeduren bietet, 
insbesondere durch die Unabhängigkeit der Prozedur vom Hauptprogramm, 
sollten wir nicht ungenutzt lassen. 
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Immerhin liegt hier der größte Vorteil gegenüber BASIC. In BASIC gibt es 
zwar auch Unterprogramme. Diese arbeiten aber stets mit globalen Variablen 
(d.h. mit den Variablen des Hauptprogramms). So sind die BASIC-Unterpro- 
gramme nur dann transportabel (d.h. in anderen Programmen zu verwen¬ 
den), wenn die Variablen dieselben Namen haben. 

Das ist anders in Pascal. 


Hier können wir uns eine sogenannte Prozedurenbibliothek aufbauen, in der 
Prozeduren stehen, die wir häufiger brauchen. Mit den Block-Kopierbefehlen 
des Editors lassen sich solche Hilfsroutinen dann sehr einfach ins Programm 
einfügen. 


Noch ein letztes Beispiel für Prozeduren: 


PROGRAM Wenigerleer; 

TYPE Stg = STRING[80]; 

VAR Satz : Stg; 

Altleer, Neuleer : INTEGER; 

PROCEDURE Eingabe (VAR S : Stg); 

BEGIN 

WRITELN('Geben Sie einen Satz ein,'); 

WRITELN('der von ueberfluessigen Leerstellen'); 
WRITELN('befreit werden soll.'); 

READLN(S) 

END; (* von Eingabe *) 


PROCEDURE Leerraus (VAR S : Stg); 

VAR i, Ende : INTEGER; 

BEGIN 

Ende := LENGTH(S); 

i : = 1 ; 

WHILE i < Ende DO BEGIN 

IF (S[i]=' ') AND (S[ i + 1 ]=' ') THEN BEGIN 

DELETE (S,i+1,1); 

Ende := Ende - 1 
END (* von IF *) 

ELSE i := i+1 
END (* von WHILE *) 

END; (* von Leerraus *) 
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Prozedur: 





Dieses Syntaxdiagramm ist für alle Arten von Prozeduren gültig, 
denn man kann die nicht benötigten Teile weglassen. Variablenna¬ 
men, die durch das reservierte Wort VAR in der Klammer hinter 
dem Prozedurnamen aufgeführt werden, sind Variablen, die der 
Prozedur übergeben werden und nach Durchlaufen der Prozedur 
der entsprechenden Variablen verändert zurückgegeben werden. 
Variablennamen, die ohne VAR in der Klammer aufgeführt wer¬ 
den, sind Werteparameter, die an die Prozedur übergeben werden, 
jedoch nicht verändert werden. 

Variablen und Konstanten, die in der Prozedur erklärt werden, 
sind lokal und damit nur innerhalb der Prozedur gültig. Haben glo¬ 
bale und lokale Variablen und Konstanten gleiche Namen, so 
haben die lokalen Vorrang vor den globalen. Bei Prozeduren ist die 
Reihenfolge insofern zu beachten, als eine aufgerufene Prozedur 
vor ihrem ersten Aufruf deklariert sein muß. 

Prozeduren können geschachtelt werden. Dann ist die innere Pro¬ 
zedur lokal. 


PROCEDURE Zaehle (S : Stg; VAR L : INTEGER); 

VAR i : INTEGER; 

BEGIN 
L := 1; 

FOR i:-l TO LENGTH(S) DO IF S[i]=’ ’ THEN L:*L+1 

END; (* von Zaehle *) 

PROCEDURE Ausgabe (S : Stg; A, N : INTEGER); 

BEGIN 

WRITELN ('Der bereinigte Satz ist:'); 

WRITELN (S); 

WRITELN ('Vorher enthielt er ', A:2, ' Leerstellen'); 

WRITELN ('nachher ', N:2, ' Leerstellen.’) 

END; (* von Ausgabe *) 
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BEGIN (* Hauptprogramm *) 

Eingabe (Satz); 

Zaehle (Satz, Altleer); 

Leerraus (Satz); 

Zaehle (Satz, Neuleer); 

Ausgabe (Satz, Altleer, Neuleer) 

END. 

Aufgabe: Welche Funktion hat das Programm Wenigerleer? Welche Proze¬ 
duren sind vom Typ ,, call-by-variable M und welche vom Typ "call-by-value"? 

Hinweise zum komfortablen Umgang mit Prozeduren 

FORWARD: Wird es aus einem programmtechnischen Grund heraus nötig, 
daß eine aufrufende Prozedur erst nach der Stelle des Aufrufs im Pro¬ 
grammtext stehen soll, kann das Problem mit der FORWARD-Deklaration ge¬ 
löst werden. 

Der Prozedurkopf wird dann mit dem reservierten Wort FORWARD verse¬ 
hen mit der Parameterliste zusammen vorgezogen. Erst später folgt der Pro¬ 
zedurrumpf (mit einem einfachen Prozedurkopf). 

Beispiel: 

PROCEDURE Eingabe (VAR Wertl, Wert2 : INTEGER); 

FORWARD; (* hier also mit Parameterliste *) 

PROCEDURE Berechne; 

BEGIN 

Eingabe (a,b); 

END; 

PROCEDURE Eingabe; (* hier keine Parameterliste *) 

BEGIN 


END; 

Exil (siehe Kapitel 6.2): In Turbo Pascal mit Versionsnummem kleiner als 3.0 
gibt es keine Standardprozedur zum vorzeitigen Verlassen einer Prozedur. In 
diesem Fall muß sich der Benutzer mit der GOTO-Anweisung helfen. Dazu 
wird im Deklarationsteil der Prozedur ein Label definiert und an geeigneter 
Stelle zu diesem Label, das sinnvollerweise am Ende der Prozedur steht, ge¬ 
sprungen. 


Achtung: Sprung ist nur innerhalb der Prozedur möglich! 
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PROCEDURE Beispiel; 

LABEL Exit; 

VAR 

BEGIN 

IF NOT Weiter THEN GOTO Exit; 

Exit: END; (* Ende der Prozedur *) 

Schachtelung von Prozeduren: Prozeduren dürfen geschachtelt werden. Das 
heißt, im Deklarationsteil einer Prozedur dürfen weitere Prozeduren dekla¬ 
riert werden. Diese sind dann jedoch lokal zu der Prozedur, in der sie erklärt 
werden. Lokale Prozeduren dürfen also nur von der Prozedur aus aufgerufen 
werden, zu der sie lokal sind. 

PROCEDURE Eins; 

VAR 

PROCEDURE Zwei; (* lokal zu Eins *) 

VAR 

BEGIN 

END; (* von Zwei *) 

BEGIN (* von Eins *) 

Zwei; 

END; (* von Eins *) 

Immer dann, wenn aus einem ehemaligen Hauptprogramm eine Prozedur ge¬ 
macht wird, werden sicher geschachtelte Prozeduren verwendet. 

6.2 Standardprozeduren 

Turbo Pascal stellt eine Reihe von Prozeduren bereit, die schon fertig sind und 
nur vom Benutzer aufgerufen zu werden brauchen, sogenannte Standardpro¬ 
zeduren. 

Die Namen dieser Prozeduren sind keine reservierten Wörter, sondern kön¬ 
nen auch vom Benutzer als Bezeichner verwendet werden. In dem Falle ist je¬ 
doch die entsprechende Prozedur nicht mehr zugänglich, da ihr Name dann 
anderweitig verwendet wird. 

CLREOL; 

Diese Prozedur löscht alle Zeichen von der Cursorposition an bis zum Zeilen¬ 
ende. Die Cursorposition wird nicht verändert. 

Beispiel: CLREOL; 
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CLRSCR; 

Löscht den Bildschirm und setzt den Cursor in die linke obere Ecke. 

Beispiel: CLRSCR; 

CRTINIT; 

Sendet den Terminal-Initialisierungs-String an den Bildschirm. Dieser ist 
durch die Installation des Turbo Pascal bestimmt. 

Beispiel: CRTINIT; 


CRTEXIT; 

Sendet den Terminal-Reset-String an den Bildschirm. Dieser ist ebenfalls 
durch die Installation bestimmt. 

Beispiel: CRTEXIT; 


DELAY (Zeit); 

Eine Verzögerungsprozedur, die den Rechner ungefähr so viele Millisekunden 
warten läßt, wie der Parameter Zeit vom Typ INTEGER angibt. 

Beispiel: DELAY (5000); wartet ca. 5 Sekunden. 


DELLINE; 

Löscht die Zeile, in der der Cursor steht und schiebt alle folgenden Zeilen 
nach. 

Beispiel: DELLINE; 


EXIT; 

Ab Version 3.0 verfügbare Prozedur ohne Parameter, die dafür sorgt, daß der 
entsprechende Programmteil (Prozedur, Funktion, Hauptprogramm), in dem 
sich die EXIT-Anweisung befindet, vorzeitig abgebrochen wird. 

Beispiel: EXIT; 


INSLINE; 

Fügt an der Cursorposition eine Leerzeile ein und läßt alle folgenden Zeilen 
nach unten wandern. 

Beispiel: INSLINE; 
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GOTOXY (x,y); 

Positioniert den Cursor entsprechend den Bildschirmkoordinaten x,y (beide 
vom Typ INTEGER); x ist die Nummer der Spalte, y die Nummer der Zeile. 
Die Koordinate 1,1 ist die linke obere Ecke. Die dem GOTOXY-Befehl fol¬ 
gende Ein- oder Ausgabe findet an der Cursorposition statt. 

Beispiel: GOTOXY(10,15); 

WRITELN (Test’); 

Das Wort Test wird in der 15. Zeile und darin an der 10. Stelle ge¬ 
schrieben. 

HALT; 

Standardprozedur ohne Parameter, die dafür sorgt, daß das aktuelle Pro¬ 
gramm abgebrochen wird. 

Beispiel: HALT; 

LOWVIDEO; 

Schaltet den Bildschirm auf das Low-Video-Attribut, das in der Installation 
von Turbo Pascal vereinbart wurde. 

Beispiel: LOWVIDEO; 

NORMVIDEO; 

Schaltet den Bildschirm auf das Normal-Video-Attribut, das in der Installation 
vereinbart wurde. 

Beispiel: NORMVIDEO; 

RANDOMIZE; 

Sorgt dafür, daß der Zufallszahlengenerator neue Zufallszahlen erzeugt. Wird 
RANDOMIZE nicht verwendet, so gibt es bei jedem Programmlauf gleiche 
Zufallszahlen. 

Beispiel: RANDOMIZE; 

MOVE (Varl, Var2, Anzahl); 

Bewegt eine ganzzahlige Anzahl von Bytes im Speicher von der Variablen 
Varl zur Variablen Var2. Die Variablen können von beliebigem Typ sein. 
Beispiel: VAR a,b: ARRAY [1..20] OF INTEGER; 

MOVE (a,b,20); 

bewegt die Hälfte der Arrays a zum Array b (denn der Datentyp 
INTEGER benötigt 2 Bytes Speicherplatz). 
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FILLCHAR (Var, Anzahl, Wert); 

Füllt den Speicherbereich, angefangen bei der ersten Speicherstelle, die von 
der Variablen Var eingenommen wird, mit einer Anzahl von Werten vom Typ 
BYTE oder CHAR. Var ist von beliebigem Typ, Anzahl vom Typ INTEGER. 
Beispiel: VAR a: CHAR ABSOLUTE $3000; 

FILLCHAR (a, 1024*8,CHR(255)); 

füllt den Speicherbereich ab hexdezimal $3000 bis $4FFF 

(d.h. 8 KByte = 8 * 1024) mit dem Zeichen CHR (255). 

Weitere Standardprozeduren sind die STRING-Prozeduren (siehe Kapitel 
3.4), die Ein-/Ausgabeprozeduren, die Dateiprozeduren (siehe Kapitel 8.1) 
und die Zeigerprozeduren (siehe Kapitel 8.2). 


63 Funktionen 

Eine andere Form von Unterprogrammen neben den Prozeduren sind in Pas¬ 
cal die Funktionen. Sie ähneln den Prozeduren sehr. Auch sie werden im De¬ 
klarationsteil aufgeschrieben und dann von anderen Programmteilen aus (die 
später folgen) aufgerufen. 

Der Hauptunterschied liegt aber darin, daß Funktionen nicht nur einfach mit 
Namen aufgerufen, sondern einer Variablen zugewiesen werden. Funktionen 
liefern nämlich stets ein Ergebnis, wenn sie abgearbeitet worden sind. 

Die Form einer Funktion ist: 

FUNCTION <Name> ( <Parameterliste> ) : <Ergebnistyp> ; 

CONST 
VAR.../ 

BEGIN 


<Name> := <Ergebnis>; 


END; 


Die Parameterliste hat die gleiche Form wie bei den Prozeduren. Auch hier 
können die Parameter wieder als Wert ("call-by-value") oder Variable ("call- 
by-variable") übergeben werden. Außerdem wird ein Ergebnistyp verlangt. 
Dies ist der Datentyp des Ergebnisses der Funktion. 
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Im Anweisungsteil der Funktion muß natürlich irgendwann einmal ein Er¬ 
gebnis erlangt und dem Namen der Funktion zugewiesen werden. 

Beispiel: 

Hier eine Funktion, die die Potenz einer Dezimalzahl mit ganzzahligem Expo¬ 
nenten berechnet. Dabei werden auch negative Exponenten zugelassen. 


FUNCTION Potenz(Basis:REAL;Exponent:INTEGER):REAL; 

VAR i : INTEGER; 
p ! REAL; 

positiv : BOOLEAN; 

BEGIN 
p : = 1; 

positiv := (Exponent = ABS (Exponent)); 

Exponent : = ABS (Exponent); 

FOR i := 1 TO Exponent DO p := p * Basis; 

IF positiv THEN Potenz := p 

ELSE Potenz :* 1 / p 
END; (* von Potenz *) 

Die Variable positiv gibt an, ob der Exponent positiv ist. 

Hinweise: Die Funktion Potenz wird aufgerufen mit zwei Werten, von denen 
der erste vom Typ REAL und der zweite vom Typ INTEGER sein muß. Das 
Ergebnis ist vom Typ REAL. 

Man ist im Anweisungsteil möglicherweise geneigt, ohne die Hilfsvariable p zu 
arbeiten und zu schreiben 

FOR i:=1 TO Exponent DO Potenz:=Potenz*Basis;(* falsch! *) 

Das ist falsch, da auf der rechten Seite des Zuweisungszeichens die Funktion 
mit Parametern aufgerufen werden muß. (Wenn sich eine Funktion in ihrem 
Anweisungsteil selbst aufruft, so entsteht eine Rekursion; siehe Kapitel 6.5.) 

Die Funktion läßt sich nun folgendermaßen aufrufen: 

X:»Potenz (5.3,4); berechnet5.3hoch4 
X : »Potenz (A, B) ; berechnet A (REAL) hoch B (INTEGER) 

X:»Potenz (A, 2); berechnet A (REAL) hoch 2 

Eigentlich sind uns Funktionen gar nicht so unbekannt. Denken wir z.B. an die 
trigonometrischen Funktionen. Hier heißt es im Funktionsaufruf z.B. 

X :»SIN (3.4); 

X:»SIN(A); 
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Niemals jedoch darf der Name der Funktion allein genannt werden. Es wird 
stets ein Ergebnis ermittelt und ausgegeben oder zugewiesen. Anders bei den 
Prozeduren. Diese "machen" etwas, ermitteln jedoch kein Ergebnis (außer in 
den Übergabe variablen). Zum Beispiel 

CLRSCR; 

ist eine solche vordefinierte Prozedur. Sie löscht den Bildschirm. 

Wir wollen nun ein paar Funktionen erstellen, um die Struktur dieser Kon¬ 
struktionen besser kennenzulemen und zu üben. 

Das Minimum zweier ganzer Zahlen 

Die Funktion Min ermittelt das Minimum zweier Zahlen vom Datentyp INTE¬ 
GER. Das Ergebnis ist natürlich ebenfalls vom Typ INTEGER. 

FUNCTION Min (a,b : INTEGER) : INTEGER; 

BEGIN 

IF a < b THEN Min : = a 
ELSE Min :« b 
END; (* von Min *) 

Größter gemeinsamer Teiler (ggT) 

Die Funktion ggT soll den größten gemeinsamen Teiler zweier Zahlen vom 
Datentyp INTEGER ermitteln. Das Ergebnis ist selbstverständlich ebenfalls 
vom Datentyp INTEGER. 

Dazu zählen wir eine Variable namens Teiler von 1 bis zum Minimum der 
beiden Zahlen, denn der gemeinsame Teiler kann höchstens so groß sein wie 
die kleinere Zahl. Immer dann, wenn sich beide Zahlen durch Teiler teilen las¬ 
sen, ist ggT gleich diesem Teiler. Für das Minimum benutzen wir gleich die 
schon geschriebene Funktion. 

FUNCTION ggT (a,b : INTEGER) : INTEGER; 

VAR Teiler : INTEGER; 

FUNCTION Min (a,b : INTEGER) : INTEGER; 

BEGIN 

IF a < b THEN Min : = a 
ELSE Min := b 
END; (* von Min *) 

BEGIN 

FOR Teiler := 1 TO Min(a,b) DO 

IF a MOD Teiler = 0 THEN IF b MOD Teiler = 0 
THEN ggT:* Teiler 


END; (* von ggT *) 
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Hinweis: Wir haben es hier mit geschachtelten Funktionen zu tun. Die Funk¬ 
tion Min ist lokal zur Funktion ggT. 

Prüfen einer Zahl als Primzahl 

Die Funktion Prim ermittelt, ob eine Zahl vom Datentyp INTEGER eine 
Primzahl ist oder nicht. Das Ergebnis ist vom Datentyp BOOLEAN, also wahr 
oder falsch. 

Eine Zahl kleiner als 2 ist keine Primzahl. In einer Schleife wird geprüft, ob 
sich die Zahl durch einen Teiler zwischen 2 und der Quadratwurzel der Zahl 
teilen läßt. 

FUNCTION Prim (Zahl : INTEGER) : BOOLEAN; 

VAR Teiler : INTEGER; 

BEGIN 

Prim := TRUE; 

FOR Teiler:=2 TO ROUND(SQRT(Zahl)) DO 
IF (Zahl MOD Teiler = 0) AND (Zahl>3) THEN Prim:=FALSE 
END; (* von Prim *) 


Weitermachen (J/N)? 

Die Funktion Weiter fragt, ob der Benutzer im Programm fortfahren möchte 
oder nicht. Das Ergebnis ist ebenfalls wieder vom Datentyp BOOLEAN. Die 
Funktion eignet sich für Programme, in denen oft nach einer Fortführung des 
Programms gefragt wird. 

In Schleifen könnte dann die Funktion zum Einsatz kommen mit 

WHILE Weiter DO...; 

oder mit 

REPEAT 

UNTIL NOT Weiter; 


FUNCTION Weiter : BOOLEAN; 

VAR ch : CHAR; 

BEGIN 

WRITE('Wollen Sie weitermachen (J/N) ? '); 
READ(KBD,ch); 

Weiter := (ch*'J') OR (ch='j') 

END; (* von Weiter *) 
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Lieszeichert 


Die folgende Funktion Lieszeichen liest ein Zeichen aus der in der Parameter¬ 
liste angegebenen Menge von der Tastatur ein. Wird eine Taste mit einem 
Zeichen gedrückt, das nicht in der Menge ist, so ertönt ein Ton. Andernfalls 
wird das Zeichen angenommen. 


Diese Funktion hat gegenüber der Eingabe mit READ erhebliche Vorteile, da 
der mögliche Eingabebereich eingeschränkt wird. 


Im Hauptprogramm muß deklariert sein: 

TYPE Setofchar = SET OF CHAR; 


FUNCTION Lieszeichen (m : Setofchar) : CHAR; 

VAR ch : CHAR; 

OK : BOOLEAN; 

BEGIN 

REPEAT 

READ (KBD/ ch); (* Lies Zeichen ohne Echo *) 

IF EOLN (KBD) THEN ch:=CHR(13); (* <Return>-Taste *) 

OK := ch IN m; 

IF NOT OK THEN WRITE (CHR(7)) (* Bell *) 

ELSE IF ch IN [' •..CHR(126)] 

(* druckbare Zeichen *) 
THEN WRITE (ch) 

UNTIL OK; 

Lieszeichen := ch 
END; (* von Lieszeichen *) 


Im folgenden Programm wollen wir die oben aufgeführten Funktionen auf 
ihre Richtigkeit hin testen und anwenden: 


PROGRAM Funtest; 

TYPE Setofchar = SET OF CHAR; 

VAR ch:CHAR; 
r:REAL; 
a,b:INTEGER; 

FUNCTION Potenz(Basis:REAL:Exponent:INTEGER):REAL; 
VAR i : INTEGER; 
p : REAL; 
positiv : BOOLEAN; 
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BEGIN 

p := 1; 

positiv := (Exponent = ABS(Exponent)); 

Exponent := ABS(Exponent); 

FOR i := 1 TO Exponent DO p := p * Basis; 

IF positiv THEN Potenz := p 

ELSE Potenz := 1 / p 
END; (* von Potenz *) 

FUNCTION ggT (a,b : INTEGER) : INTEGER; 

VAR Teiler : INTEGER; 

FUNCTION Min (a,b : INTEGER) : INTEGER; 

BEGIN 

IF a < b THEN Min := a 
ELSE Min := b 
END; (* von Min *) 

BEGIN 

FOR Teiler := 1 TO Min(a,b) DO 

IF a MOD Teiler = 0 THEN IF b MOD Teiler = 0 
THEN ggT := Teiler 

END; (* von ggT *) 

FUNCTION Prim (Zahl : INTEGER) : BOOLEAN; 

VAR Teiler : INTEGER; 

BEGIN 

Prim := TRUE; 

FOR Teiler:=2 TO ROUND(SQRT(Zahl)) DO 
IF (Zahl MOD Teiler - 0) AND (Zahl>3) THEN Prim:=FALSE 
END; (* von Prim *) 

FUNCTION Weiter : BOOLEAN; 

VAR ch : CHAR; 

BEGIN 

WRITE ('Wollen Sie weitermachen (J/N) ? '); 

READ (KBD,ch); 

Weiter := (ch='J') OR (ch='j') 

END; (* von Weiter *) 

FUNCTION Lieszeichen (m : Setofchar) : CHAR; 

VAR ch : CHAR; 

OK : BOOLEAN; 

BEGIN 

REPEAT 

READ (KBD, ch); (* Lies Zeichen ohne Echo *) 

IF EOLN (KBD) THEN ch:=CHR(13); (* <Return>-Taste *) 

OK := ch IN m; 

IF NOT OK THEN WRITE (CHR(7)) (* Bell *) 

ELSE IF ch IN [' ’..CHR(126)] 

(* druckbare Zeichen *) 
THEN WRITE (ch) 

UNTIL OK; 

Lieszeichen := ch 
END; (* von Lieszeichen *) 
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Bezeichner 


Bezeichner 



FUNCTION name (Parameterliste) : Ergebnistyp; 
CONST 
VAR 
BEGIN 


Eine Funktion hat im Gegensatz zu einer Prozedur stets ein Ergebnis. 
Funktionen können mit oder ohne Parameter aufgerufen werden. 

Die Parameter können mit "call-by-value" und "call-by-variable" 
übergeben werden. Im Anweisungsteil der Funktion wird dem Funk¬ 
tionsnamen (links vom Zuweisungszeichen) ein Ergebnis vom 
Ergebnistyp zugewiesen. Beim Funktionsaufruf (rechts vom 
Zuweisungszeichen) müssen die Parameter der Funktion übergeben 
werden. 

Die Parameter und das Ergebnis müssen von einfachen Datentypen 
sein. 

Funktionen können wie Prozeduren geschachtelt werden. Bei der 
Reihenfolge gelten dieselben Regeln wie bei Prozeduren: Eine 
aufgerufene Funktion/Prozedur muß im Text vor der aufrufenden 
Funktion/Prozedur stehen. 
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BEGIN (* Hauptprogramm *) 

REPEAT 

CLRSCR; 

WRITELN('Waehlen Sie:'); 

WRITELN; 

WRITELN(' G(gt '); 

WRITELN(' P(rimzahlen '); 

WRITELN(' R(echnen mit Potenzen*); 

ch:=LiesZeichen ([*g*,’G',*p*, *P*,*r*, *R*]); 

WRITELN; WRITELN; 

CASE Ch OF 
' g',* G* : BEGIN 

WRITE(* 1. Zahl: '); READLN (a); 

WRITE(* 2. Zahl: *); READLN (b); 

WRITELN(*ggt: *,ggt(a,b)) 

END; 

'p','P' : BEGIN 

WRITE(»Zahl: *); READLN(a); 

WRITE(a f * Ist *); 

IF NOT Prim(a) THEN WRITE(*keine *); 
WRITELN('Primzahl.') 

END; 

'r','R' : BEGIN 

WRITE('Basis: '); READLN(r); 

WRITE('Exponent: '); READLN(b); 

WRITELN(r:7:2,' hoch ',b,' ist ', 

Potenz(r,b):11:5) 

END 

END 

UNTIL NOT Weiter 
END. 


Aufgabe: Tippen Sie das Programm ein, und testen Sie es. 

Hinweis: Die Hinweise zur FORWARD-Deklaration und zum vorzeitigen Ab¬ 
bruch einer Funktion gelten analog zu den Prozeduren (siehe Kapitel 6.1). 


6.4 Standardfunktionen 

Turbo Pascal stellt eine Reihe von Funktionen bereit, die schon fertig sind und 
nur vom Benutzer aufgerufen zu werden brauchen: sogenannte Standardfunk¬ 
tionen. 

Die Namen dieser Funktionen sind keine reservierten Wörter, sondern können 
auch vom Benutzer als Bezeichner verwendet werden. In diesem Falle ist 
jedoch die entsprechende Funktion nicht mehr zugänglich, da ihr Name dann 
anderweitig verwendet wird. 
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Arithmetische Funktionen 

ABS (Zahl); 

Absolutwert einer Zahl. Das Argument ist entweder REAL oder INTEGER. 
Das Ergebnis ist vom Typ des Arguments. 

Beispiel: x:=ABS(-3.7); dann hat x den Wert 3.7. 

ARCTAN (Zahl); 

Arcustangens einer Zahl. Der Winkel wird in Bogenmaß angegeben. Zahl ist 
vom Typ REAL oder INTEGER. Das Ergebnis ist vom Typ REAL. 

Beispiel: x:=ARCTAN(l); dann hat x den Wert 7t/4. 


COS (Zahl); 

Cosinus einer Zahl. Der Winkel wird in Bogenmaß angegeben. Zahl ist vom 
Typ REAL oder INTEGER. Das Ergebnis ist vom Typ REAL. 

Beispiel: x:=COS(PI/2); dann hat x den Wert 0. 


EXP (Zahl); 

Exponentialfunktion zur Basis e, d.h. e A Zahl. Zahl ist vom Typ REAL oder 
INTEGER. Das Ergebnis ist vom Typ REAL. 

Beispiel: x:=EXP(l); dann hat x den Wert 2.718281828. 


FRAC (Zahl); 

Ergibt den gebrochenen Teil einer Zahl (d.h. Nachkommawert). Zahl kann 
vom Typ REAL oder INTEGER sein. Das Ergebnis ist vom Typ REAL. 
Beispiel: x:=FRAC(3.7); dann hat x den Wert 0.7. 


INT (Zahl); 

Ergibt den ganzzahligen Anteil einer Zahl. Zahl kann vom Typ REAL oder 
INTEGER sein. Das Ergebnis ist vom Typ REAL. 

Beispiel: x:=INT(3.7); dann hat x den Wert 3.0. 


LN(Zahl); 

Natürlicher Logarithmus einer Zahl (d.h. zur Basis e). Zahl ist vom Typ 
REAL oder INTEGER. Das Ergebnis ist vom Typ REAL. 

Beispiel: X:=LN(2); dann hat x den Wert 6.931471806E-01. 
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SIN (Zahl); 

Sinus einer Zahl. Der Winkel wird in Bogenmaß angegeben. Zahl ist vom Typ 
REAL oder INTEGER. Das Ergebnis ist vom Typ REAL. 

Beispiel: X:=SIN(PI/2); dann hat x den Wert 1. 

SQR(Zahl); 

Quadrat einer Zahl. Zahl ist vom Typ REAL oder INTEGER. Das Ergebnis 
ist vom Typ des Arguments. 

Beispiel: x:=SQR(2.5); dann hat x den Wert 6.25. 

SQRT(Zahl); 

Quadratwurzel einer Zahl. Zahl ist vom Typ REAL oder INTEGER. Das 
Ergebnis ist vom Typ REAL. 

Beispiel: x:=SQRT(9); dann hat x den Wert 3.0. 

Skalare Funkäonen 

PRED (Argument); 

Vorgänger des Arguments. Argument und Ergebnis sind vom gleichen skala¬ 
ren, aufzählbaren Typ. 

Beispiel: x:=PRED (*B’); dann hat x den Wert A. 

SUCC (Argument); 

Nachfolger des Arguments. Argument und Ergebnis sind vom gleichen skala¬ 
ren, aufzählbaren Typ. 

Beispiel: X:=SUCC(15); dann hat x den Wert 16. 

ODD (Zahl); 

Ist eine Funktion mit Ergebnistyp BOOLEAN. Erhält den Wert TRUE, wenn 
Zahl eine ungerade Zahl ist, sonst FALSE. Zahl muß vom Typ INTEGER 
sein. 

Beispiel: X:=ODD(16); dann hat x den Wert FALSE. 

Übergang zwischen verschiedenen Datentypen 

CHR (Zahl); 

Ergibt den zu einer Zahl gehörigen ASCII-Wert. Zahl ist vom Typ INTE¬ 
GER. Das Ergebnis ist vom Typ CHAR. 

Beispiel: X:=CHR(66); dann hat x den Wert B. 
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ORD (Wert); 

Ergibt die Ordnungsnummer eines Wertes aus einer Aufzählung. Dabei wird 
bei 0 angefangen zu zählen. Das Ergebnis ist vom Typ INTEGER. Siehe auch 
Kapitel 3.7. 

Beispiel: x=ORD(’A’); dann hat x den Wert 65. 


ROUND (Zahl); 

Rundet eine Dezimalzahl zu einer ganzen Zahl. Für Zahl >0 ergibt sich der 
ganzzahlige Anteil von Zahl 0.5. Für Zahl <0 ergibt sich der ganzzahlige 
Anteil von Zahl -0.5. 

Beispiel: x:=ROUND(3.7); dann hat x den Wert 4. 


TRUNC (Zahl); 

Ergibt den ganzzahligen Anteil einer Dezimalzahl. Das Ergebnis ist vom Typ 
INTEGER. 

Beispiel: X:=TRUNC(3.7); dann hat x den Wert 3. 


Sonstige Funktionen 

HI (Argument) ; 

Das Ergebnis vom Typ INTEGER erhält als niederwertiges Byte das höher¬ 
wertige Byte des Arguments. Das höherwertige Byte wird auf Null gesetzt. 
Beispiel: x:=HI(8446); dann hat x den Wert 32, oder 

x:=HI($20FE); hat das gleiche Ergebnis ($20=32). 


KEYPRESSED; 

Diese Funktion hat kein Argument und ein Ergebnis vom Typ BOOLEAN. 
Das Ergebnis ist TRUE, wenn eine Taste gedrückt wurde, sonst FALSE. 
Beispiel: REPEAT... UNTIL KEYPRESSED. 


LO (Argument); 

Das Ergebnis vom Typ INTEGER erhält als niederwertiges Byte das nieder- 
wertige Byte des Arguments. Das höherwertige Byte wird auf Null gesetzt. 
Beispiel: x:=LO(8446); dann hat x den Wert 254, oder 

x:=HI($20FE); hat das gleiche Ergebnis ($FE=254). 
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MEMAVAIL; 

Das Ergebnis vom Typ INTEGER gibt die Größe des freien Speicherplatzes in 
Byte an. Ist das Ergebnis negativ, ist 65536 dazuzuaddieren. 

Beispiel: x:=MEMAVAIL; 

RANDOM; 

Das Ergebnis dieser Funktion ist eine zufällige Zahl vom Typ REAL größer 
oder gleich Null oder kleiner als Eins. 

Beispiel: x:=RANDOM; dann hat x einen zufälligen Wert. 

RANDOM (Zahl); 

Ergibt eine zufällige Zahl größer oder gleich Null und kleiner als Zahl. Zahl 
und Ergebnis sind vom Typ INTEGER. 

Beispiel: x:=RANDOM(200); dann hat x den ganzzahligen Wert zwischen 0 
und 199. 

SIZEOF (Argument); 

Ergibt den Speicherplatz in Byte, den eine Variable oder ein Typ namens Ar¬ 
gument im Speicher einnimmt. Das Ergebnis ist vom Typ INTEGER. 

Beispiel: x:=SIZEOF(x); dann hat x den Wert 2, da es vom Typ INTEGER 
sein muß. 

SWAP (Zahl); 

Tauscht höherwertiges und niederwertiges Byte der Zahl vom Typ INTEGER 
um. Ergebnis vom Typ INTEGER. 

Beispiel: x:=SWAP(8446); dann hat x den Wert -480, oder 

x:=SWAP($20FE); gleiches Ergebnis ($FE20=-480). 

UPCASE (Zeichen); 

Hat als Ergebnis den Großbuchstaben des entsprechenden Zeichens, sofern 
dieser existiert, andernfalls ist das Argument das Ergebnis. Argument und Er¬ 
gebnis sind vom Typ CHAR. 

Beispiel: x:=UPCASE(’a*); dann hat x den Wert A. 

Weiterhin gibt es Standardfunktionen in Zusammenhang mit STRING (siehe 
Kapitel 3.4), mit Dateien (siehe Kapitel 8.1) und mit Zeigern (s. Kapitel 8.2). 

Außerdem werden systemabhängige Standardfunktionen angeboten (siehe 
Handbuch zu Turbo Pascal). 
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6.5 Rekursionen 

Ein entscheidender Vorteil einer Programmiersprache, die lokale und globale 
Variablen kennt, ist die einfache Möglichkeit, Rekursionen zu programmie- 
ren.Von einer Rekursion sprechen wir, wenn eine Prozedur oder Funktion 
sich selbst aufruft. Dies ist in anderen Programmiersprachen auch möglich 
(wer BASIC kennt, sollte nach dem Durcharbeiten dieses Kapitels einmal 
Rekursionen in BASIC probieren), jedoch können in Pascal (und anderen 
blockorientierten Sprachen wie Logo) lokale Variablen verwendet werden, 
die bei jedem Neuaufruf der entsprechenden Prozedur oder Funktion neuen 
Speicherstellen zugeordnet werden. 

In Turbo Pascal ist allerdings zu beachten, daß eine Prozedur oder Funktion, 
die einen rekursiven Aufruf enthält, durch zwei Compiler-Anweisungen ein¬ 
gerahmt wird, die dafür sorgen, daß rekursiver Code erzeugt werden kann. In 
der Regel erzeugt der Turbo Compiler nämlich nichtrekursiven Code. Mit 

(*$A-*) oder {$A-} 

wird der Compiler angewiesen, daß er rekursiven Code erzeugen soll, und mit 
(*$A+*) oder {$A+} 

wird diese Möglichkeit wieder abgeschaltet. 

Warum läßt man dann nicht das ganze Programm mit (*$A-*) übersetzen? 
Rekursiver Code braucht mehr Speicherplatz und ist in der Ausführung etwas 
langsamer. 

Hier nun ein einführendes Beispiel für eine Rekursion: 


PROGRAM Was_macht_das; (* Idee: Pascal-Kurs der FU-Hagen *) 
(*$A-*) 

PROCEDURE Zeichen; 

VAR ch : CHAR; 

BEGIN 

READ (KBD,ch);WRITE (ch) ; 

IF ch <> 1 ' THEN Zeichen; 

WRITE (ch) 

END; (* von Zeichen *) 

(*$A+*) 

BEGIN (* Hauptprogramm *) 

Zeichen 

END. 
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Was macht das Programm? 

Zur Übung sollte jetzt das Buch beiseite gelegt werden. 

Daß es sich hier um eine Rekursion handelt, erkennen wir an dem Aufruf der 
Prozedur Zeichen innerhalb der Prozedur Zeichen. Die Prozedur ruft sich 
also selbst auf. Nehmen wir an, wir geben die Buchstaben "abc" und eine 
Leerstelle ein. Das Hauptprogramm ruft die Prozedur Zeichen auf: 



Die Eingabe eines Zeichens wird also so lange fortgesetzt, bis das Leerzeichen 
eingegeben wird. Dann werden alle Zeichen rückwärts wieder ausgegeben. 

In dieser Art ist die Rekursion natürlich nur möglich, wenn bei jedem Aufruf 
der Prozedur Zeichen eine neue Variable ch bereitgestellt wird. Dies ist da¬ 
durch gewährleistet, daß ch eine lokale Variable ist und somit nur innerhalb 
der Prozedur definiert ist. Obwohl die Variablen gleiche Namen haben, sind 
sie doch unterschiedlich. 

Merke: Wenn eine Prozedur oder Funktion sich selbst aufruft (rekursiv auf¬ 
ruft), dann werden nach der Ausführung der Prozedur/Funktion die restlichen 
Anweisungen noch abgearbeitet. 

Was passiert, wenn wir die Zeile 

IF ch <> " THEN Zeichen; 
austauschen gegen 

Zeichen; 

d.h. den Prozeduraufruf ohne Bedingung ausführen? 
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Nun, die Prozedur ruft sich dann "unendlich" lange selbst auf. Tatsächlich hört 
das Programm allerdings irgendwann ziemlich unschön auf, weil der Spei¬ 
cherbereich überschritten wurde. 

Fehlerquelle: Es ist stets darauf zu achten, daß eine Rekursion eine Abbruch¬ 
bedingung hat. Wenn also eine Prozedur/Funktion sich selbst aufruft, sollte 
der Aufruf von einer Bedingung abhängen, deren Wahrheitsgehalt sich ir¬ 
gendwann zu FALSE ändert. 

Wir wollen uns nun noch ein kleines Beispiel für eine rekursive Funktion an- 
sehen. Aus der Mathematik ist sicher die sogenannte Fakultät bekannt. Es ist 
z.B. 5!=1*2*3*4*15. 


Oft wird das Bildungsgesetz für eine beliebige Fakultät jedoch so dargestellt: 

1! = 1 und n! = (n-1) ! * n 

Dies ist eine rekursive Beschreibung der Fakultät, denn n! wird berechnet 
durch das Produkt aus n und der Fakultät des Vorgängers von n. Wir tun so, 
als wenn wir (n-1)! berechnen könnten. Können wir auch, denn (n-1)! = 
(n-2)! ♦ (n-1) und so weiter. 

Jedoch wäre dies ein unendlicher Prozeß, gäbe es nicht die Abbruchbedingung 
(oft auch Rekursionsanfang genannt), die lautet: 1 !=1. 

Als Pascal-Funktion liest sich das so: 


(*$A-*) 

FUNCTION reku_Fak (n : INTEGER) : INTEGER; 
BEGIN 

IF n=l THEN reku_Fak := 1 

ELSE reku_Fak := reku_Fak(n-1) * n 
END; (* von reku_Fak *) 

(*SA+*) 


So einfach ist das. Wir haben nur die Rekursionsvorschrift von n! in Pascal- 
Anweisungen umgeschrieben. 

Hinweis: Da Fakultäten schnell sehr groß werden, ist MAXINT rasch über¬ 
schritten. Dies ist bei der Funktion nicht berücksichtigt, um nicht vom Thema 
abzulenken. 

Hätten wir ohne die Möglichkeit der Rekursion die Funktion Fak nicht schrei¬ 
ben können? Doch, sicherlich. 
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Der Vorteil der Rekursion liegt allerdings in der Einfachheit und Übersicht¬ 
lichkeit. Daß Rekursionen auch erhebliche Nachteile haben können, zeigt der 
nächste Paragraph. 

Jede Rekursion läßt sich jedoch durch eine Iteration (Nacheinanderausführung 
von Anweisungen) ersetzen. Am Beispiel der Fakultät sähe das folgenderma¬ 
ßen aus: 

FUNCTION iter_Fak (n : INTEGER) : INTEGER; 

Var i, Hilf : INTEGER; 

BEGIN 

Hilf := 1; 

IF n-1 THEN Hilf :« 1 

ELSE FOR i:-l to n DO Hilf := Hilf * i; 
iter_Fak Hilf 
END; (* von iter_Fak *) 

Beachten Sie: Ohne die Hilfsvariable Hilf kämen wir nicht aus, da die Zuwei¬ 
sung iter_Fak : = iter_Fak ♦ i nicht erlaubt wäre. Warum? 


Ein kleines Programm zum Testen der neuen Funktionen: 


PROGRAM Fakutest; 

VAR a:INTEGER; 

<*$A-*) 

FUNCTION reku_Fak (n : INTEGER) : INTEGER; 

BEGIN 

IF n=l THEN reku_Fak := 1 

ELSE reku_Fak :* reku_Fak(n-1) * n 
END; (* von reku_Fak *) 

(*A+) 

FUNCTION iter_Fak (n : INTEGER) : INTEGER; 

Var i, Hilf : INTEGER; 

BEGIN 

Hilf := 1; 

IF n-1 THEN Hilf 1 

ELSE FOR i:=l to n DO Hilf := Hilf * i; 
iter_Fak := Hilf 
END; (* von iter_Fak *) 

BEGIN 

WRITELN('Zahl: '); 

READLN(a); 

WRITELN('Fakultaet rekursiv: reku_Fak (a)); 

WRITELN(’Fakultaet iterativ: iter_Fak(a)) 

END. 
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Rekursion: 

Von einer Rekursion sprechen wir, wenn sich eine Prozedur oder 
Funktion selbst aufruft. Dabei sind Konstanten und Variablen 
beim erneuten Aufruf der Prozedur/Funktion nicht mit den gleich¬ 
namigen der aufrufenden Prozedur/Funktion identisch. 

Eine Rekursion muß stets eine Abbruchbedingung haben, die auch 
erreicht wird. Andernfalls käme es zu einer unendlichen Rekur¬ 
sion. 


Hinweis: Wenn eine Prozedur/Funktion sich explizit selbst aufruft, sprechen 
wir von einer direkten Rekursion. Eine indirekte Rekursion dagegen liegt vor, 
wenn eine Prozedur/Funktion eine andere aufruft, die dann ihrerseits einen 
Aufruf der ersten Prozedur/Funktion enthält. 

Hinweis für CP/M 80: In rekursiven Programmteilen darf eine zu einem Un¬ 
terprogramm lokale Variable nicht als Variablenparameter (VAR) in rekursi¬ 
ve Aufrufe übergeben werden. 


Probleme der Rechenzeit und des Speicherplatzes mit Rekursionen 


fib(0) =0 

fib(6) = 8 

fib(l) =1 

fib(7) = 13 

fib(2) =1 

fib(8) =21 

fib(3) =2 

fib(9) =34 

fib(4) =3 

. . . 

fib(5) =5 



Die Zahlen dieser merkwürdigen Zahlenreihe nennt man Fibonacci-Zahlen. 
Sie werden gebildet, indem jeweils die letzte und vorletzte Fibonacci-Zahl ad¬ 
diert werden. 


Als mathematisches Bildungsgesetz sieht das folgendermaßen aus: 

fib(0) =0 
fib(l) = 1 

fib(n) = fib(n-l) + fib(n-2) 


Na, also. Wieder eine Rekursion, wie wir hellen Köpfe sofort erkannt haben. 
Da wir nun schon einige Übung im Programmieren haben, können wir sicher 
sofort die dazugehörige Pascal-Funktion schreiben: 
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(*$A-*) 

FUNCTION fib (n : INTEGER) : INTEGER; 

BEGIN 

IF n<2 THEN fib := n 

ELSE fib := fib(n-l) + fib(n-2) 

END; (* von fib *) 

(*$A+*) 

Testen wir unsere Funktion in einem Programm: 

PROGRAM Rekufib; 

VAR a : INTEGER; 

(*$A-*) 

FUNCTION fib (n : INTEGER) : INTEGER; 

BEGIN 

IF n<2 THEN fib := n 

ELSE fib := fib(n-l) + fib(n-2) 

END; (* von fib *) 

(*$A+*) 

BEGIN (* Hauptprogramm *) 

WRITE('Eingabe einer Zahl: '); 

READLN (a); 

WRITELN (* fib(*/ a:3, ') = ', fib(a):5) 

END. 

Alle Zahlen unserer oben aufgeführten Fibonacci-Reihe berechnet das Pro¬ 
gramm auch einwandfrei (testen Sie das!). 

Geben wir nun einmal eine etwas größere Zahl ein: 22. Es dauert beim 
Schneider CPC etwa 23 Sekunden, bis wir das Ergebnis fib(22) = 17711 
erhalten. 

Zum Vergleich wollen wir die Funktion fib iterativ schreiben und anstelle der 
rekursiven Funktion in unser Programm aufnehmen: 

PROGRAM Iterfib; 

VAR a : INTEGER; 

FUNCTION fib (n : INTEGER) : INTEGER; 

VAR i, Hilf, Letzt, Vorletzt : INTEGER; 

BEGIN 

Letzt := 1; 

Vorletzt := 0; 

IF n<2 THEN Hilf := n 
ELSE FOR i:=2 TO n DO BEGIN 

Hilf := Letzt + Vorletzt; 

Vorletzt Letzt; 

Letzt := Hilf 
END; (* von FOR *) 
fib := Hilf 
END; (* von fib *) 
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BEGIN (* Hauptprogramm *) 

WRITE('Eingabe einer Zahl: *); 

READLN(a); 

WRITELN(* fib(*, a:3, fib(a):5) 

END. 

Bei dieser Version des Programms stoppen wir eine Zeit unter einer Sekunde 
für fib(22). 

Woher dieser gewaltige Unterschied? 

Machen wir uns einmal deutlich, wie fib(5) rekursiv berechnet wird: 



Addieren wir alle Endwerte (1) bei den Rekursionsabbrüchen fib(l) und 
fib(O), so erhalten wir als Ergebnis 5. Wir erkennen, daß für n = 5 die Funk¬ 
tion 15mal aufgerufen wird. 

Eine andere Darstellung der Aufrufe der rekursiven Funktion ist ein Baum 
(hier für fib(6) = 8): 



/\ /\ /\ /\ 


0 1 0 10 112 

/\ 

0 1 


Hier wird die Funktion schon 25mal aufgerufen. 
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Wir sehen also, daß die Zahl der Funktionsaufrufe explosionsartig ansteigt, da 
sich die Funktion jeweils zweimal selbst aufruft. Daher die enorme Rechenzeit 
bei der Rekursion. Für die Iteration wird nur einmal die Funktion aufgerufen 
und eine Schleife von 2 bis n abgearbeitet. 

Ein anderes Problem bei Rekursionen spielt ebenfalls eine große Rolle: der 
Stapelspeicher (Stack). 

Wenn eine Funktion/Prozedur aufgerufen wird, muß der Rechner sich die 
Rücksprungadresse merken, denn nach dem Abarbeiten der Funktion/Proze¬ 
dur soll es an der gleichen Stelle weitergehen. 



Außerdem müssen jeweils die lokalen Variablen der Funktion/Prozedur ab¬ 
gelegt werden. 

All dies geschieht im sogenannten Stack (oder Stapelspeicher oder Kellerspei¬ 
cher). Es handelt sich hier um einen LIFO-Stack (Last-In-First-Out). Diesen 
Speicherbereich können wir uns vorstellen wie einen Parkgroschenspender: 
Der letzte Groschen, der in den Spender eingelegt wird, wird auch als erster 
wieder herausgenommen. Für Funktionen/Prozeduren heißt das, die zuletzt 
aufgerufene Funktion/Prozedur kehrt als erste wieder zu ihrer Ausgangsposi¬ 
tion zurück. 

Bei Rekursionen kann es nun (abhängig von der Größe des Stacks unseres 
Rechners) leicht zu einer Überlastung des Stacks kommen, wenn die Funk¬ 
tion/Prozedur sich zu häufig aufruft (zu große Rekursionstiefe). 

In unserem vorigen Beispiel der Fakultät spielten diese Probleme kaum eine 
Rolle, da die Funktion sich selbst jeweils nur einmal aufruft, d.h. für n! wird 
die Funktion n-mal abgearbeitet. 

Hier noch ein Beispiel für die Anwendung einer Rekursion, die sich nicht so 
einfach durch einen iterativen Algorithmus ersetzen läßt. 

Einigen ist sicherlich das Spiel 'Türme von Hanoi" bekannt. 

Eine Holzausführung dieses Spiels ist auf dem umseitigen Foto dargestellt. 
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Ziel des Spiels: Bringe alle Scheiben von einem Turm auf einen anderen. 


Spielregeln: Bewege jeweils nur eine Scheibe von einem Turm zu einem an¬ 
deren. Lege stets eine kleinere auf eine größere Scheibe, nie umgekehrt. 

Das Spiel läßt sich im Prinzip mit beliebig vielen Scheiben spielen. Auf der 
Abbildung sind es sieben. 

Jetzt sollten wir den Computer abschalten und das Buch beiseite legen, um ein 
wenig zu spielen. Mit einigen unterschiedlich großen Münzen läßt sich "Türme 
von Hanoi" auch spielen, wenn keine andere Ausführung vorhanden ist. 



Aufgabe: Spielen Sie "Türme von Hanoi" mit 4 Scheiben. Versuchen Sie, so 
wenig Züge wie möglich zu machen. Schreiben Sie die Züge auf. 


Wir nennen die Türme a, b und c. 
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Nun wollen wir ein Programm schreiben, das uns die Züge für dieses Spiel mit 
vorgegebener Scheibenzahl ausgibt. 

Beim realen Spiel wird man sicherlich erst einmal mit wenigen Scheiben an¬ 
fangen. So leicht wollen wir es uns nicht machen. Nehmen wir an, unser Spiel 
habe 70 Scheiben. Diese 70 Scheiben sollen von Turm a nach Turm b gebracht 
werden. Dies kann nicht auf einmal geschehen, da nur jeweils eine Scheibe be¬ 
wegt werden darf. 

Der Lösungsalgorithmus, der hier verfolgt werden soll, ist folgender: Wir 
bringen erst einmal alle Scheiben mit Ausnahme der untersten auf den Hilfs¬ 
turm. Dann bewegen wir die unterste Scheibe auf den Zielturm. Schließlich 
bringen wir die Scheiben vom Hilfsturm auf den Zielturm. 

In unserem Beispiel heißt das: Bringe 69 Scheiben auf Turm c. Bewege eine 
Scheibe auf Turm b. Bringe 69 Scheiben auf Turm b. Hinter dem "Bringen 
von 69 Scheiben" verbirgt sich sicherlich mehr als nur ein Befehl, es läßt sich 
durch drei ähnliche Anweisungen ersetzen: "Bringe 68 Scheiben ..." 

Wir planen eine Prozedur: 

Bringe (70, a, b, c) 

Diese Prozedur soll folgendes ausführen: Bringe 70 Scheiben von Turm a nach 
Turm b unter Zuhilfenahme von Turm c als Zwischenlager für die 69 Schei¬ 
ben. 

Folgende Anweisungen führt die Prozedur Bringe aus: 

Bringe (70, a, b, c): Bringe (69, a, c, b) 

Bewege eine Scheibe von a nach b 
Bringe (69, c, b, a) 

In Worten: Bringe 70 Scheiben von a nach b über c heißt: Bringe 69 Scheiben 
von a auf den Hilfsturm c unter Zuhilfenahme von b. Bewege eine Scheibe (die 
unterste) von a nach b. Bringe die 69 Scheiben vom Hilfsturm c nach b unter 
Zuhilfenahme von a. 

Jetzt hat es jeder gemerkt: Wir benutzen eine Rekursion. Die Prozedur Bringe 
ruft sich selbst zweimal auf. 

Schauen wir uns noch an, was dann Bringe (69, a, c, b) macht: 

Bringe (69, a, c, b): Bringe (68, a, b, c) 

Bewege eine Scheibe von a nach c 
Bringe (68, b, c, a) 
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Aufgabe: Was macht Bringe (69, c, b, a)? 

Allgemein können wir für n Scheiben schreiben: 

Bringe (n, a, b, c) : Bringe (n-1, a, c, b) 

Bewege eine Scheibe von a nach b 
Bringe (n-1, c, b, a) 

Da wir uns jetzt mit Rekursionen auskennen, wissen wir, daß jede Rekursion 
eine Abbruchbedingung braucht. 

In unserem Fall ist es natürlich nur sinnvoll, weitere Prozeduren mit n-1 
Scheiben aufzurufen, wenn die Anzahl der Scheiben größer als Null ist. 

Bevor wir uns nun an ein Pascal-Programm heranmachen, sollten wir an ei¬ 
nem einfachen Beispiel die Prozedur Bringe testen. 

Wir bringen drei Scheiben von a nach b über c. Hierbei heißt B(3,a,b,c) soviel 
wie Bringe (3,a,b,c) und a-»b soviel wie "bewege eine Scheibe von a nach b". 


B(2,a,c,b) 

/ i \ 

B(l,a,b,c) a—c B(l,b,c,a) 

a—b b—*c 



c—* a 


a—*b 


Die einzigen Operationen, die überhaupt ausgeführt werden können, sind die 
Bewegungen einer Scheibe (z.B. a->b). Lesen wir diese Bewegungen in der 
Reihenfolge ihrer Ausführung (Hilfe: senkrechte Ebenen von links nach 
rechts), so erhalten wir: 


a->b 

a-)C 

b->c 

a->b 

c->a 

c->b 

a->b 

Aufgabe: Schreiben Sie ein solches Diagramm für vier Scheiben. 
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Nun aber an die Pascal-Lösung: 


(*SA-*) 

PROCEDÜRE Bringe (n : INTEGER; a, b, c : CHAR); 


BEGIN 

IF n > 0 THEN BEGIN 

Bringe (n-1, a, c, b) ; 
WRITELN (a, ' -> *, b); 

Bringe (n-1, c, b, a) 
END 

END; (* von Bringe *) 

(*SA+*) 


Das ist schon die ganze Prozedur (wie oben geplant). Die Variablen für die 
Türme sind vom Typ CHAR. Weisen wir ihnen im Programm der Einfachheit 
halber die Buchstaben a, b und c zu. 


PROGRAM Hanoi; 

VAR Anzahl : INTEGER; 

(*$A-*) 

PROCEDÜRE Bringe (n : INTEGER; a, b, c : CHAR); 
BEGIN 

IF n > 0 THEN BEGIN 

Bringe (n-1, a, c, b); 
WRITELN (a, ' -> *, b); 

Bringe (n-1, c, b, a) 

END 

END; (* von Bringe *) 

(*$A+*) 

BEGIN (* Hauptprogramm *) 

WRITELN ('Tuerme von Hanoi*); 

WRITE ('Eingabe der Scheibenzahl: '); 

READLN (Anzahl); 

Bringe (Anzahl, 'a*, ’b', 'c') 

END. 


Aufgabe: Testen Sie das Programm mit 3 und 4 Scheiben, und vergleichen Sie 
mit den oben "zu Fuß" erstellten Lösungen. Testen Sie nun mit mehr Scheiben, 
und spielen Sie nach. 

Hinweis: Da es zu sehr vielen Zügen kommen kann, sollte das Programm even¬ 
tuell für einen Drucker umgeschrieben werden. 
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PROGRAM Hanoi; 


VAR Anzahl : INTEGER; 


(*$A-*) 

PROCEDURE Bringe (n : INTEGER; a, b, c : CHAR); 


BEGIN 

IF n > 0 THEN BEGIN 

Bringe (n-1, a, c, b); 
WRITELN (LST, a, ' -> •, 
Bringe (n-1, c, b, a) 

END 

END; (* von Bringe *) 

(*$A+*) 


b) ; 


BEGIN (* Hauptprogramm *) 

WRITELN ('Tuerme von Hanoi'); 

WRITE ('Eingabe der Scheibenzahl: '); 
READLN (Anzahl); 

Bringe (Anzahl, 'a', 'b', 'c') 

END. 
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Kapitel 7 

Zusammengesetzte Datentypen 


7.1 Felder 

Eindimensionales Feld 

Wir wollen eine Namenliste aller Schüler unserer Klasse erstellen. Nehmen 
wir an, es wären maximal 40 Schüler in einer Klasse zulässig (die Pädagogen 
mögen es mir verzeihen!). In unserer Klasse sind aber nur 21 Schüler. 

Wir könnten als Variablen für die Schüler die Namen Schuelerl, Schueler2 ..., 
Schueler40 erfinden. Wie aber sollen wir nun alle Schülemamen eingeben und 
später wieder ausgeben? Diese Methode zwingt uns zu 40 Ein- und Ausgabean¬ 
weisungen. 

Natürlich geht es in Pascal (wie in allen Programmiersprachen) einfacher. 
Wir können indizierte Variablen verwenden. Es heißen in unserem Beispiel 
alle Variablen Schueler, gefolgt von einer Nummer 1 bis 40. Im Deklarations¬ 
teil des Programms müssen wir diesen Datentyp als Feld (Array) erklären. 

VAR Schueler : ARRAY [1..40] OF STRING[80]; 

Die Variable Schueler kann also die Nummern 1 bis 40 haben, wobei jede die¬ 
ser Variablen vom Typ STRING ist. 

In den Anweisungen werden die Variablen als Schueler[l], Schueler[2] ... 
Schueler[40] verwendet. 

Die Zahl in der Klammer wird Index genannt. Als Index kann auch eine Vari¬ 
able vom Datentyp INTEGER verwendet werden. 

Beispiel: 

I := 5; 

READLN(Schueler[I]) ; 

hat den gleichen Effekt wie 


READLN(Schueler [5]); 
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Hinweis: In Programmiersprachen, die mit einem Compiler übersetzt wer¬ 
den, muß bei der Deklaration eines Feldes genau festgelegt werden, welche 
Nummern als Indizes auftreten können, damit der Compiler genauso viele 
Speicherplätze für die indizierten Variablen bereitstellen kann. 


Das Programm für eine Schülerliste: 

PROGRAM Liste; 

CONST N = 40; 

VAR i, e : INTEGER; 

Schueler : ARRAY [1..N] OF STRING[80]; 
BEGIN 

WRITE (’Schuelerzahl: '); 

READLN (e); 

WRITELN ( 'Eingabe: ') ; 

FOR i:=l TO e DO BEGIN 

WRITE ('Schueler Nr. ',1:2,': ’); 

READLN (Schueler[i]) 

END; (* von FOR i *) 

WRITELN ('Ausgabe:'); 

FOR i:=1 TO e DO WRITELN (Schueler[i]) 
END. 


Beispiele für richtige Felddeklarationen: 

CONST Anfang = 7; 

Ende = 15; 

VAR A: ARRAY [1..30] OF INTEGER; 

B: ARRAY [2..Anfang] OF REAL; 

C: ARRAY [Anfang..Ende] OF CHAR; 
D: ARRAY [20..25] OF BOOLEAN; 


Eine falsche Deklaration ist: 

VAR N: INTEGER; 

E: ARRAY [1..N] OF REAL; 

weil N keine Konstante ist. 


Mehrdimensionales Feld 

Bis jetzt hatten die dargestellten Felder nur eine Dimension, d.h. jedes Element 
des Feldes hatte einen Index (eine Nummer). Jedoch kommt es häufig vor, daß 
Elemente von Feldern zwei oder mehr Nummern erhalten sollen. Dies ist bei 
Tabellen oft der Fall. 
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T [ 1, 

1] 

, T[ 1, 

2] 

, T [ 1, 

3] . 

T [ 1,14] 

, T[ 1,15] 

T [ 2, 

1] 

, T[ 2, 

2] 

, T[ 2, 

3] . 

T[ 2,14] 

, T[ 2,15] 

T[ 3, 

1] 

, T[ 3, 

2] 

, T[ 3, 

3] . 

T [ 3,14] 

, T[ 3,15] 

T [ 19, 

1] 

, T[19, 

2] 

, T [19, 

3] . 

T[19,14] 

, T[19,15] 

T [20, 

1] 

, T[20, 

2] 

, T [20, 

3] . 

T[20,14] 

, T[20,15] 


Wollen wir diese Tabelle mit 20 Reihen und 15 Spalten (d.h. in jeder Reihe 15 
Werte) anlegen, ließe sich ein Feld wie folgt definieren (die Daten sollen vom 
Typ INTEGER sein): 

TYPE Reihe = ARRAY [1..15] OF INTEGER; 

Tabelle = ARRAY [1..20] OF Reihe; 

VAR T : Tabelle; 

Nun können wir ein Tabellenelement beispielsweise ansprechen mit 
T [10] [5] : = 130; 

Dies bedeutet, daß der Wert in der 10. Reihe und der 5. Spalte 130 betragen 
soll. 

Bei dem so deklarierten Typ Tabelle handelt es sich also um ein eindimensio¬ 
nales Feld von eindimensionalen Feldern. Umständlich, nicht wahr! 

Einfacher und übersichtlicher läßt sich dieser Typ als zweidimensionales Feld 
deklarieren: 

TYPE Tabelle = ARRAY [ 1..20,1..15] OF INTEGER; 

VAR T : Tabelle; 

mit der Zuweisung 

T [10,5] : = 130; 

Solche zweidimensionalen Felder kennen wir auch aus der Mathematik: das 
Koordinatensystem, Matrizen, zweidimensionale Vektoren usw. 

Sicher sind auch noch mehr Dimensionen möglich. Beispielsweise Koordina¬ 
ten im Raum: 


VAR Koordinate : ARRAY [ 1. . 100, 1..100,1..100] OF INTEGER; 
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Aber Vorsicht! Der Speicherplatzbedarf der Variablen Koordinate ist schon 
recht beachtlich: 100 * 100 * 100 * 2 Bytes (für INTEGER) macht 2 Millionen 
Bytes - weit mehr als der Speicherplatz gängiger Tischrechner. 


Aus Gründen des Speicherplatzbedarfs werden sicher selten mehr als zwei Di¬ 
mensionen gebraucht. 


Mehrdimensionale Felder werden wie folgt deklariert: 

2 


-»► ( ARRAY 



Bereich T^WöfVT Datentyp 




Beispiel für korrekte Felddeklarationen: 


TYPE Intber 
Letter 
Farbe 
Feldl 
Feld2 
Feld3 
Feld4 
Feld5 


= 6 .. 20 ; 

= ' a' . .' z' ; 

= (rot, gruen, gelb, blau, weiss, schwarz); 
= ARRAY [Intber] OF REAL; 

= ARRAY [Letter, letter] OF Letter; 

= ARRAY [20..30, 5.. 8] OF Farbe; 

= ARRAY [1..6,Farbe] OF BOOLEAN; 

= ARRAY [TRUE..FALSE,1..2] OF CHAR; 



Bereich Datentyp -►Q» 




Ein Feld faßt mehrere Daten mit gleichem Namen, aber unter¬ 
schiedlichen „Nummern“ zusammen, die in eckigen Klammern 
genannt werden. Die möglichen „Nummern“ der Feldelemente 
werden als Unterbereiche von aufgezählten Datentypen erklärt. 


Hinweis: Der Datentyp STRING, der in Standard-Pascal nicht vorhanden ist, 
ist deklariert als 

TYPE STRING = ARRAY [0..255] OF CHAR; 


Ist s vom Typ STRING, dann kann allerdings nicht direkt auf s [0] zugegriffen 
werden. In diesem Element befindet sich ein Code für die Länge des Strings. 
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Geben wir aber dem Compiler die Anweisung, auf die Überprüfung des gülti¬ 
gen Bereichs (ränge check) zu verzichten, läßt sich die Länge wie folgt er¬ 
mitteln (Laenge:INTEGER): 


(*$R-*) (* Range check aus *) 

Laenge := ORD (s [ 0]); 

(*$R+*) (* Range check an *) 


Beispielprogramme zu Feldern 


1. Zufallstest mit Histogramm 

Wir wollen die Zuverlässigkeit unseres Zufallszahlengenerators testen. Dazu 
erzeugen wir Zufallszahlen zwischen 0 und 9 und stellen deren Häufigkeit in 
einem sogenannten Histogramm (Balkendiagramm) dar. Mit einem 80-Zei- 
chen-Bildschirm könnten wir bis zu 75 Kreuze in der Breite auf dem Bild¬ 
schirm ausgeben, wobei jedes Kreuz für das Vorkommen der entsprechenden 
Zufallszahl steht. Einige Zeichen müssen wir für die Ziffern freilassen. 


PROGRAM Randomtest; 

CONST Breite = 75; (* bei anderen Bildschirmen aendern *) 

VAR Maximum, i, j, n : INTEGER; 

Z : ARRAY [0..9] OF INTEGER; 

BEGIN 

CLRSCR; 

RANDOMIZE; (* neue Zufallszahlen *) 

WRITELN; WRITELN; 

Maximum := 0; 

FOR i:=0 TO 9 DO Z[i] := 0; 

(* alle Zahlen auf 0 setzen *) 

REPEAT 

n := RANDOM (10); 

(* Zahl zwischen 0 und 9 einschl.*) 
Z[n] := Z[n] + 1; (* Anzahl erhoehen *) 

IF Z[n] > Maximum THEN Maximum := Z[n] 

(* Maximum der Anzahlen auf neuesten Stand bringen *) 
UNTIL Maximum >= Breite; 

(* mehr Kreuze passen nicht auf Bild *) 
FOR i:=0 TO 9 DO BEGIN 
WRITE (i : 1, ' : '); 

FOR j:=1 TO Z[i] DO WRITE ('X'); 

(* Anzahl der Kreuze fuer i *) 

WRITELN; WRITELN 
END (* von FOR i *) 

END. 
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Das Programm könnte folgendes Ergebnis haben: 


0 rXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

1 :xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

2:XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

3:XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

4:XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

5:XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

6:XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

7:XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

8:xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

9:XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


2. Lottozahlen 


Das folgende Programm hilft uns beim Ausfüllen eines Lottoscheins (natürlich 
ohne Gewähr). 


Dazu werden sechs Zahlen L[l] bis L[6] als Zufallszahlen erzeugt, wobei keine 
Mehrfachnennungen Vorkommen dürfen. 


Anschließend wird der Lottoschein "ausgefüllt": 



10 

20 

30 

40 

1 

11 

21 

X 

41 

2 

12 

22 

32 

42 

X 

13 

23 

33 

43 

4 

14 

24 

34 

44 

5 

X 

25 

35 

45 

6 

16 

26 

X 

46 

7 

17 

27 

37 

X 

8 

18 

28 

38 

48 

9 

19 

X 

39 

49 


Das Programm dazu: 


PROGRAM Lottoblock; 

VAR i, j, z : INTEGER; 

L : ARRAY [1..6] OF INTEGER; 
Kreuz, Neuezahl, Ende : BOOLEAN; 
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BEGIN 

RANDOMIZE; (* neue Zufallszahlen *) 

FOR i:=l TO 6 DO BEGIN 
REPEAT 

z := RANDOM (49) +1; (* Zahl zwischen 1 und 49 *) 

Neuezahl := TRUE; 

FOR j:=1 TO i DO IF z = L[j] THEN Neuezahl := FALSE 
(* ist wahr, wenn z neue Zufallszahl ist *) 
UNTIL Neuezahl; 

L[i] := z 

END; (* von FOR i *) 

CLRSCR; 

WRITELN ('Die Lottozahlen:'); 

WRITELN; 

WRITE (' '); 

Ende := FALSE; 
i := 10; 

REPEAT 

Kreuz := FALSE; 

FOR j:=1 TO 6 DO IF L[j]=i THEN Kreuz := TRUE; 

IF Kreuz THEN WRITE (' X') 

ELSE WRITE (i:3) ; 

IF i >= 49 THEN Ende := TRUE; 

IF i >= 40 THEN BEGIN 

WRITELN; 
i := i-39 
END 

ELSE i := i + 10 

UNTIL Ende 
END. 


3. Größter und kleinster Meßwert 

In dem folgenden Beispiel soll eine Reihe von Meßwerten (Datentyp REAL) 
eingegeben und der größte und kleinste Meßwert bestimmt werden. Außerdem 
berechnen wir als Nebenprodukt den Mittelwert der Meßwerte und die größte 
Abweichung vom Mittelwert. 


Das Programm: 


PROGRAM Messwerte; 

CONST N = 50; 

VAR Max, Min, Mittelwert, Abweichung, Dif : REAL; 
i, Anz : INTEGER; 

Wert : ARRAY [1..N] OF REAL; 
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BEGIN 

WRITELN ('Messwerterfassung und Analyse: '); 
WRITE ('Wieviele Messwerte (max. 50) : '); 

READLN (Anz); 

FOR i:=1 TO Anz DO BEGIN 
WRITE (i:2, '. Wert: ') ; 

READLN (Wert[i]) 

END; (* von FOR i *) 


Max := Wert[1] ; 

Min := Max; (* bestimmten Wert zuweisen *) 

Mittelwert := 0; 


FOR i:=1 TO Anz DO BEGIN 

IF Wert[i] > Max THEN Max := Wert[i]; 

IF Wert[i] < Min THEN Min := Wert[i]; 

Mittelwert := Mittelwert + Wert[i] (* vorlaeufig 
END; (* von FOR i *) 

Mittelwert := Mittelwert / Anz; 


Abweichung := 0; 

FOR i:=1 TO Anz DO BEGIN 

Dif := ABS (Mittelwert - Wert[i]); 
IF Dif > Abweichung THEN Abweichung 
END; (* von FOR i *) 

CLRSCR; 

WRITELN; WRITELN; 

WRITELN ('Das Maximum ist: 

WRITELN ('Das Minimum ist: 

WRITELN ('Der Mittelwert : 


:= Dif 


Max:7:2), 

Min:7:2); 
Mittelwert:7 :2); 


WRITELN ('Mit der groessten Abweichung von:'); 


WRITELN 
END. 


('+/-', Abweichung:7:2) 


*) 


4. Stundenplan 

Ein Serviceprogramm für Ihren ganz persönlichen Stundenplan. Mit diesem 
Programm kann der Benutzer einen Stundenplan eingeben, den ganzen Plan 
auf dem Bildschirm ausgeben, einzelne Stunden abfragen und einzelne Stunden 
ändern. 


PROGRAM Stundenplan; 

CONST N = 6; 

TYPE Wort = STRING [ 10 ]; 

Tage = (Mo, Di, Mi, Don, Fr, Sa); 

(* Do ist reserviert *) 

Stunden = 1...N; 

Feld = ARRAY [ Tage, Stunden ] OF Wort; 

VAR Plan : Feld; 

Tag : Tage; 

Std : Stunden; 
ch : CHAR; 
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PROCEDURE Drucke ( t : Tage); 
BEGIN 

CASE t OF 


Mo 

WRITE 

('Montag':12); 

Di 

WRITE 

('Dienstag':12); 

Mi 

WRITE 

('Mittwoch':12); 

Don 

WRITE 

('Donnerstag ' : 12); 

Fr 

WRITE 

('Freitag':12); 

Sa 

WRITE 

('Samstag':12) 


END (* von Case *) 
END; (* von Drucke *) 


PROCEDURE Weiter; 

BEGIN 

GOTOXY (10,20); 

WRITELN ( CHR(7), »Weiter mit <Return>'); 
READLN 

END; (* von Weiter *) 


PROCEDURE Wann (VAR Tag : Tage; VAR Std : Stunden); 
VAR Antwort : Wort; 

BEGIN 

WRITELN ('Welcher Tag ?'); 

READLN (Antwort); 


Tag 

= Mo; 

(* fuer 

falsche 

Eingabe *) 


CASE 

Antwort 

[1] OF 






’M 

: IF Antwort 

[2] = 

'0 

THEN 

Tag 

:= Mo 






ELSE 

Tag 

:= Mi; 

'D 

: IF Antwort 

[2] = 

' I 

THEN 

Tag 

:= Di 






ELSE 

Tag 

:= Don 

'F' 

: Tag 

:= Fr; 






'S' 

: Tag 

:= Sa 






END; 

(* von 

Case *) 







WRITELN ('Welche Stunde ?'); 
REPEAT 

READLN (Std) 

UNTIL (Std>0) AND (Std<=N) 
END; (* von Wann *) 


PROCEDURE Ganzer_Plan; 

BEGIN 

CLRSCR; 

WRITE (' '); FOR Tag := Mo TO Sa DO Drucke(Tag); 

WRITELN; 

FOR Std := 1 TO N DO BEGIN 
WRITE (Std:3); 

FOR Tag := Mo TO Sa DO 
WRITE (Plan[Tag,Std] :12) ; 

WRITELN 

END; (* von For Std *) 

Weiter 

END; (* von Ganzer_Plan *) 
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PROCEDÜRE Eine_Stunde; 

BEGIN 

CLRSCR; 

Wann (Tag, Std) ; 

WRITE ('Am '); Drucke(Tag); 

WRITELN (' in der Std:3,'. Stunde'); 

WRITELN ('haben Sie Plan [ Tag, Std ] : 12); 

Weiter 

END; (* von Eine_Stunde *) 


PROCEDÜRE Aenderung; 

BEGIN 

CLRSCR; 

WRITELN ('Aenderung:'); 

Wann (Tag, Std); 

WRITELN ('Alter Wert: ', Plan [ Tag, Std ] : 12); 

WRITE ('Neuer Wert: '); 

READLN (Plan [ Tag, Std )); 

Weiter 

END; (* von Aenderung *) 


BEGIN (* Hauptprogramm *) 

CLRSCR; WRITELN ('Eingabe des Planes: '); 
FOR Tag := Mo TO Sa DO BEGIN 
Drucke (Tag); WRITELN(':'); 

FOR Std := 1 TO N DO BEGIN 
WRITE (Std:3,'. Stunde: '); 

READLN (Plan [ Tag, Std ]) 

END; (* von For Std *) 

WRITELN 

END; (* von For Tag *) 


REPEAT 


CLRSCR; 

WRITELN 

C 

G(anzen Plan ausgeben 

') ; 

WRITELN 

(’ 

E(ine Stunde ausgeben 

*) ; 

WRITELN 

(' 

A(endern einer Stunde 

') ; 

WRITELN 

(’ 

S (chluss 

'); 

WRITELN, 

WRITELN 

f (* 

-> Waehlen Sie: '); 


REPEAT 




READ 

(KBD,ch) 



UNTIL (ch='G') OR (ch='E’) OR (ch='A’) OR (ch=’S’); 
CASE ch OF 

’G' : Ganzer_Plan; 

'E' : Eine_Stunde; 

'A' : Aenderung 

END (* von Case *) 

UNTIL ch = 'S' 

END. 
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7.2 Sortieren von Feldern 

Daten werden häufig in eindimensionalen Feldern abgespeichert. Ein sinnvol¬ 
ler Zugriff auf die Daten erfolgt am besten mit sortierten Daten. 

55 94 67 44 12 6 18 42 

Diese acht Zahlen wollen wir sortieren. 

Mit unserem Erfahrungsschatz über Zahlen fällt uns das sehr leicht. Wir wür¬ 
den möglicherweise so vorgehen, daß wir uns erst die kleinste Zahl suchen, sie 
aufschreiben, dann die kleinste der verbleibenden Zahlen usw. 

Natürlich überblicken wir sofort, welches die kleinste Zahl ist. Das ist aber 
nur deswegen möglich, weil es wenige Zahlen sind. Hätten wir 10000 Zahlen 
zu ordnen, so müßten wir uns schon eine andere Methode suchen. 

Wir geben unseren Zahlen Namen mit Nummern: 

al a2 a3 a4 a5 a6 a7 a8 

55 94 67 44 12 6 18 42 

Nun behaupten wir, die Zahl mit der kleinsten Nummer, al, sei die kleinste 
Zahl. Natürlich sieht jeder, daß das hier nicht zutrifft. Daher müssen wir die 
Zahl al mit allen folgenden (a2, a3, a4, a5, a6, a7, a8) vergleichen und den 
Platz tauschen, wenn wir eine kleinere Zahl als al gefunden haben: 

al vergleichen mit a2 -OK 
al vergleichen mit a3 -OK 

al vergleichen mit a4 -vertauschen al *-» a4 

al a2 a3 a4 a5 a6 al a8 

44 94 67 55 12 6 18 42 

al vergleichen mit a5 -vertauschen al <-» a5 

al a2 a3 a4 a5 a6 al a8 

12 94 67 55 44 6 18 42 

al vergleichen mit a6 - vertauschen al a6 

al a2 a3 a4 a5 a6 al a8 

6 94 67 55 44 12 18 42 

al vergleichen mit al -OK 
al vergleichen mit a8 -OK 

Damit haben wir die kleinste Zahl al = 6 gefunden. 
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Bei den Vertauschungen, die nötig waren, fällt übrigens gleich der entschei¬ 
dende Mangel dieses Algorithmus auf. Die zweitkleinste Zahl 12, die schon 
einmal an vorderster Stelle stand, ist durch die Vertauschungen wieder weit 
nach hinten gerutscht. Bei anderen Zahlen ist es ähnlich. 

Nun müssen wir die zweitkleinste Zahl a2 finden: 


a2 

a3 

a4 

a5 

a6 

a7 

a8 




94 

67 

55 

44 

12 

18 

42 




a2 

vergleichen 

mit 

a3 - 

vertauschen 

a2 


a3 

a2 

a3 

a4 

a5 

a6 

a7 

a8 




67 

94 

55 

44 

12 

18 

42 




a2 

vergleichen 

mit 

a4 - 

vertauschen 

a2 


a4 

a2 

a3 

a4 

a5 

a6 

a7 

a8 




55 

94 

67 

44 

12 

18 

42 




a2 

vergleichen 

mit 

a5 - 

vertauschen 

a2 

<-> 

a5 

a2 

a3 

a4 

a5 

a6 

a7 

a8 




44 

94 

67 

55 

12 

18 

42 




a2 

vergleichen 

mit 

a6 - 

vertauschen 

a2 

<-> 

a6 

a2 

a3 

a4 

a5 

a6 

a7 

a8 




12 

94 

67 

55 

44 

18 

42 




a2 

vergleichen 

mit 

a7 - 

OK 





a2 

vergleichen 

mit 

a8 - 

OK 






Damit ist a2 = 12 die zweitkleinste Zahl. 

Nun wird a3 als drittkleinste Zahl gesucht. Dazu vergleichen wir a3 mit allen 
folgenden Zahlen a4 bis a8 und vertauschen, wenn nötig. Wir finden a3 = 18 
als dritte Zahl. 

Es bleibt: 

a4 a5 a6 a7 a8 
94 67 55 44 42 

Die Prozedur des Vergleichens und Vertauschens wird fortgeführt, bis wir a8 
vergleichen müßten. Dies ist selbstverständlich nicht mehr nötig, da a8 nur 
noch die größte Zahl sein kann. 
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Aufgabe: Schreiben Sie die Vergleiche und nötigen Vertauschungen für a3 bis 
a8 ebenfalls auf. 


Was haben wir nun getan? 

Wir haben nacheinander die Zahlen al bis a7 mit allen jeweils folgenden Zah¬ 
len verglichen. Wenn dabei eine kleinere Zahl gefunden wurde, haben wir die 
Zahlen vertauscht. 

Dazu planen wir eine Prozedur namens Sort in Pascal. Die Variablen im 
Hauptprogramm sollen sein 

a[l], a[2], a[3], ... a[N] 

wobei N eine Konstante mit dem Wert 8 ist. 


Das Programm mit der Prozedur Sort: 


PROGRAM Tauschsortl; 

CONST N = 8; 

VAR i : INTEGER; 

a : ARRAY [1..N] OF INTEGER; 

PROCEDURE Sort; 

VAR i, j : INTEGER; 

Hilf : INTEGER; 

BEGIN 

FOR i:=1 TO N-l DO 
FOR j:=i TO N DO 

IF a [i] > a[j] THEN BEGIN 
Hilf := a [i]; 
a [ i ] : = a [ j ] ; 

a[j] := Hilf (* Speichertausch *) 

END (* von IF *) 

END; (* von Sort *) 

BEGIN (* Hauptprogramm *) 

WRITELN ('Geben Sie N:3, ' Zahlen ein: '); 

FOR i:=1 TO N DO READLN (a[i]); 

Sort ; 

WRITELN ('Sortiert: '); 

FOR i:=1 TO N DO WRITELN (a[i]:3) 

END. 


In der Sortierprozedur werden also die Zahlen a[l] bis a[7] mit allen folgenden 
Zahlen a[i+l] bis a[8] verglichen und nötigenfalls vertauscht. 
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Damit wir die Vorgänge bei den Vergleichen und Vertauschungen besser ver¬ 
stehen können, hier ein etwas erweiteites Programm, das die Zahlen bei jedem 
Schleifendurchlauf auf einem Drucker ausdruckt. Mit dem Programm könnte 
auch eine Teilfolge sortiert werden, da der Anfangsindex 1 (für links) und der 
Endindex r (für rechts) gesetzt wird. Im Ausdruck wird jeweils der Wert für 
1, r, i und j ausgegeben. In der Zahlenfolge werden die Zahlen unterstrichen, 
die vertauscht worden sind. Zählt man nach, ergibt sich bei unserer Bei¬ 
spielzahlenfolge eine Anzahl von 21 Vertauschungen. Das bedeutet, daß 21 mal 
Daten transportiert werden müssen. 


Hinweis zum Programm: Bei dem verwendeten Drucker wird das Unter¬ 
streichen mit der Kontrollzeichensequenz "ESC, CHR(0/1)" gesteuert. Für 
andere Drucker müssen diese Programmzeilen geändert werden. 


Programm mit Druckerausgabe: 


PROGRAM Tauschsortl; 

CONST N=8; 

VAR i : INTEGER; 

a : ARRAY [1..N] OF INTEGER; 

PROCEDURE Ausgabe (l,r,i,j : INTEGER); 

VAR k : INTEGER; 

BEGIN 

WRITE (LST,CHR(27), ’ -',CHR(1)); 

(* Unterstreichen an *) 
WRITE (LST, ' 1: r; i: j: ’) ; 

FOR k:=l TO N DO WRITE (LST,k:4); 

WRITE (LST,CHR (21) , * - *,CHR(0)); 

(* Unterstreichen aus *) 

WRITELN (LST); 

WRITE (LST,1:4, r:4, i : 4, j : 4) ; 

WRITE (LST,' a [i] : '); 

FOR k:=l TO N DO BEGIN 

IF (k=i) OR (k=j) THEN BEGIN 

WRITE (LST, CHR (27) , ’-^CHRd) ) ; 

(* Unterstreichen an *) 

WRITE (LST,a[k]:4); 

WRITE (LST,CHR(27),'-’,CHR(0)) 

(* Unterstreichen aus *) 

END (* von IF *) 

ELSE WRITE (LST,a[k]:4) 

END; (* von FOR k *) 

WRITELN (LST); 

WRITELN(LST) 

END; (* von Ausgabe *) 
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PROCEDURE Sort (1, r : INTEGER); 
VAR i, j : INTEGER; 

w : INTEGER; 


BEGIN 

FOR i:=1 TO r-1 DO 

FOR j:=i TO r DO BEGIN 

IF a[i] > a[j] THEN BEGIN 

w :« a[i]; a[i] := a [ j]; a[j] := w; 

Ausgabe(1, r, i, j) 

END (* von IF *) 

END (* von FOR j *) 

END; (* von Sort *) 

BEGIN (* Hauptprogramm *) 

WRITELN ('Geben Sie ’,N:3, ' Zahlen ein.'); 

FOR i:=1 TO N DO READLN (a[i]); 

WRITELN (LST,'Anfang:’); 

WRITE (LST,’ '); 

FOR i:=1 TO N DO WRITE (LST,a[i]:4); 

WRITELN(LST); 

Sort (1,N); 

WRITELN (LST,'Ende:’); 

WRITE (LST,’ '); 

FOR i:=1 TO N DO WRITE (LST,a[i]:4); 

WRITELN(LST); 

END. 

Aufgabe: Testen Sie das Programm, und versuchen Sie anhand des Ausdrucks 
den Sortiervorgang zu verstehen! 

Wenn wir eine andere Anzahl von Daten sortieren wollen, ändern wir ein¬ 
fach die Konstante N. 

Sollen Daten von anderen Typen sortiert werden, wird der Datentyp des 
ARRAYs und der Typ der Hilfsvariablen Hilf geändert. Wenn wir Daten vom 
Typ CHAR oder STRING sortieren, dann wird die Reihenfolge des entspre¬ 
chenden Zeichensatzes, hier ASCII (siehe Kapitel 3.3), verwendet. 

Unser Algorithmus in der Prozedur Sort kann leicht dadurch entscheidend 
verbessert werden, daß die innere Schleife, die die jeweils nachfolgenden Ele¬ 
mente untersucht, nicht vorwärts, sondern rückwärts durchlaufen wird. 


Das Programm mit dieser Änderung: 


PROGRAM Tauschsort2; 

CONST N = 8; 

VAR i : INTEGER; 

a : ARRAY [1..N] OF INTEGER; 
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PROCEDURE Sort; 

VAR i, j : INTEGER; 

Hilf : INTEGER; 

BEGIN 

FOR i:=1 TO N-l DO 

FOR j:=N DOWNTO i DO (* hier geaendert *) 

IF a[i] > a[j] THEN BEGIN 
Hilf := a[i]; 
a [i] := a [ j] ; 

a[j] := Hilf (* Speichertausch *) 

END (* von IF *) 

END; (* von Sort *) 

BEGIN (* Hauptprogramm *) 

WRITELN ('Geben Sie ’, N:3, ' Zahlen ein: '); 

FOR i:=l TO N DO READLN (a[i]); 

Sort; 

WRITELN ('Sortiert: '); 

FOR i:=1 TO N DO WRITELN (a [i] :3) 

END. 

Der hier benutzte Sortieralgorithmus wird oft auch BUBBLESORT genannt. 
Beim Sortieren steigen die kleineren Zahlen wie Blasen (Bubbles) zum Anfang 
des Datenfeldes auf. 

Diese Eigenschaft des Sortieralgorithmus können wir uns auch hier wieder 
durch ein Demonstrationsprogramm auf einem Drucker sichtbar machen: 

PROGRAM Tauschsort2; 

CONST N=8; 

VAR i : INTEGER; 

a : ARRAY [1..N] OF INTEGER; 

PROCEDURE Ausgabe (l,r,i,j : INTEGER); 

VAR k : INTEGER; 

BEGIN 

WRITE (LST,CHR(27),,CHR(1)); 

(* Unterstreichen an *) 
WRITE (LST,' 1: r: i: j: ’); 

FOR k:=l TO N DO WRITE (LST,k:4); 

WRITE (LST,CHR(27),’-',CHR(0)); 

(* Unterstreichen aus *) 

WRITELN (LST); 

WRITE (LST,1:4, r:4, i:4, j:4); 

WRITE (LST,' a[i]: ’); 

FOR k:=l TO N DO BEGIN 

IF (k=i) OR (k=j) THEN BEGIN 

WRITE (LST,CHR(27),’-',CHR(l)); 

(* Unterstreichen an *) 

WRITE (LST,a[k]:4); 

WRITE (LST,CHR(27),’-’,CHR(0)) 

(* Unterstreichen aus *) 
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END (* von IF *) 

ELSE WEITE (LST,a[k]:4) 
END; (* von FOR k *) 

WRITELN (LST); 

WRITELN(LST) 

END; (* von Ausgabe *) 

PROCEDURE Sort (1, r : INTEGER); 
VAR i, j : INTEGER; 

w : INTEGER; 


BEGIN 

FOR i:=1 TO r-1 DO 

FOR j:«=r DOWNTO i DO BEGIN 
IF a[i] > a[j] THEN BEGIN 
w := a [ i]; a[i] := a [ j]; 
Ausgabe(1,r,i,j) 

END (* von IF *) 

END (* von FOR j *) 


END; (* von Sort *) 


a [ j] 


:= w; 


BEGIN (* Hauptprogramm *) 

WRITELN ('Geben Sie ’,N:3, ' Zahlen ein.'); 

FOR i:*l TO N DO READLN (a[i]); 

WRITELN (LST, 'Anfang: ' ) ; 

WRITE (LST,' '); 

FOR i:=1 TO N DO WRITE (LST,a[i]:4); 

WRITELN(LST); 

Sort (1,N); 

WRITELN (LST,'Ende:'); 

WRITE (LST,’ '); 

FOR i:=1 TO N DO WRITE (LST,a[i]:4); 

WRITELN(LST); 

END. 


Aufgabe: Testen Sie auch dieses Programm mit der Beispielzahlenfolge aus 
dem vorigen Beispiel. 

Im Gegensatz zu 21 Vertauschungen in der alten Version braucht unser Pro¬ 
gramm nun nur noch 11 Vertauschungen vorzunehmen. 

Als dritter Sortieralgorithmus soll nun noch ein rekursiver Algorithmus be¬ 
handelt werden, der vor allem bei großen Datenmengen besonders schnell ist: 
Quicksort. 

Die (rekursive) Prozedur Sort(l,r) sortiert einen Teil des Datensatzes angefan¬ 
gen bei einem "linken" Element (1) bis zu einem "rechten" Element (r). Beim 
ersten Aufruf der Prozedur (im Hauptprogramm) sind 1 und r natürlich die 
erste und die letzte Nummer. 
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Nun wird der Datensatz unterteilt. Dazu wird ein beliebiges, hier das mittlere, 
Element gesucht (x:=a[(l+r) DIV 2]). 

Als nächstes wird der Datensatz, von links (mit dem Index i) und von rechts 
(mit dem Index j) kommend, durchsucht, bis sich die Indizes i und j treffen. 
Dabei wird x mit einem "linken" Element getauscht, wenn dieses größer als x 
ist; und x wird mit einem "rechten" Element vertauscht, wenn dieses kleiner ist 
als x. 

Nach dieser Schleife sind im linken Teil nur Elemente, die kleiner, und im 
rechten Teil nur Elemente, die größer sind als x. 

Die Prozedur ruft sich selbst zweimal auf, damit nach dem gleichen Schema 
die beiden Teile des Datensatzes weiter sortiert werden, solange der entspre¬ 
chende Teil aus mehr als einem Element besteht. 

Als Programm stellt sich der Algorithmus folgendermaßen dar: 


PROGRAM Quicksort; 

CONST N = 8; 

VAR i : INTEGER; 

a : ARRAY [1..N] OF INTEGER; 

PROCEDURE Sort (1, r : INTEGER); 

VAR i, j : INTEGER; 
x, Hilf : INTEGER; 

BEGIN 

i := 1; j := r; 

x := a[ (1+r) DIV 2 ]; (* mittleres Element *) 

REPEAT 

WHILE a[i] < x DO i := i + 1; 

WHILE x < a[j] DO j := j - 1; (* Annaehern *) 

IF i <= j THEN BEGIN 

Hilf := a [ i]; a[i] := a [ j]; a[j] := Hilf; 

(* Tauschen *) 

i := i + 1; j := j -1 
END (* von IF *) 

UNTIL i > j; 

IF 1 < j THEN Sort (l,j); 

IF i < r THEN Sort (i,r) 

END; (* von Sort *) 

BEGIN (* Hauptprogramm *) 

WRITELN ('Geben Sie N:3, ' Zahlen ein: '); 

FOR i:=1 TO N DO READLN (a[i]); 

Sort (1,N); 

WRITELN ('Sortiert: '); 

FOR i:*l TO N DO WRITELN (a[i]:3) 

END. 
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Auch bei diesem Algorithmus wollen wir zum besseren Verständnis schritt¬ 
weise ausdrucken lassen, welche Vertauschungen gerade vorgenommen wer¬ 
den. Außerdem ist es hier nötig zu verfolgen, welche Sortierprozedur aufge¬ 
rufen worden ist. Dazu wieder ein Programm, das ein Protokoll des Sortier¬ 
verfahrens ausdruckt: 


PROGRAM Quicksort; 

CONST N=8; 

VAR i : INTEGER; 

a : ARRAY [1..N] OF INTEGER; 
u : BOOLEAN; 


PROCEDURE Ausgabe (l,r,i,j,x : INTEGER); 

VAR k : INTEGER; 

BEGIN 

WRITE (LST,CHR(27), ' -',CHR(1)); 

(* Unterstreichen an *) 

WRITE (LST,* 1: r: i: j: x: '); 

FOR k:=l TO N DO WRITE (LST,k:4); 

WRITE (LST,CHR(27),* -',CHR(0)); 

(* Unterstreichen aus *) 

WRITELN (LST); 

WRITE (LST,1:4, r:4, i:4, j:4, x:4); 

WRITE (LST,' a[i]: '); 

FOR k:=l TO N DO BEGIN 

IF u THEN IF (k=i) OR (k=j) THEN WRITE 

(LST,CHR(27),• -',CHR(1)); 

WRITE (LST,a[k]:4); 

WRITE (LST,CHR(27),'-',CHR(0)) 

END; (* von FOR k *) 

WRITELN (LST) 

END; (* von Ausgabe *) 


(*$A-*) 

PROCEDURE Sort (1, r : INTEGER); 
VAR i, j : INTEGER; 
x, w : INTEGER; 


BEGIN 

WRITELN (LST, 'Sort (',1:2, ', ',r:2, ') '); 
i := 1; j := r; 
x := a[ (1+r) DIV 2]; 

REPEAT 

u := FALSE; 

WHILE a[i] < x DO 

BEGIN Ausgabe(1,r,i,j,x); i := i+1 END; 
WHILE x < a[j] DO 

BEGIN Ausgabe(1,r,i,j,x); j := j-1 END; 
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IF i <= j THEN BEGIN 

w := a[i]; a[i] := a[j]; a[j] := w; 
u := TRUE; 

Ausgabe(1, r, i, j, x); 
i := i+1; j := j-1 

END (* von IF *) 

UNTIL i > j; 

IF 1 < j THEN Sort (l,j); 

IF i < r THEN Sort (i,r) 

END; (* von Sort *) 

(*$A+*) 

BEGIN (* Hauptprogramm *) 

WRITELN ('Geben Sie ',N:3, ' Zahlen ein.'); 

FOR i:=1 TO N DO READLN (a[i]); 

WRITELN (LST, 'Anfang: ') ; 

WRITE (LST,' »); 

FOR i:=1 TO N DO WRITE (LST,a[i] : 4) ; 

WRITELN(LST); 

Sort (1,N); 

WRITELN (LST,'Ende:'); 

WRITE (LST,' •); 

FOR i:=l TO N DO WRITE (LST,a[i]:4); 

WRITELN(LST); 

END. 

Aufgabe: Testen Sie auch dieses Programm mit der Beispielzahlenfolge aus 
den vorherigen Beispielen. 


Der Quicksort-Algorithmus nimmt bei unserer Testzahlenfolge (gleiche 
Zahlenfolge für alle drei Programme) nur 9 Vertauschungen vor. Es scheint 
also, als sei Quicksort der schnellste Algorithmus. So einfach können wir uns 
diese Bewertung jedoch nicht machen. Zur Untersuchung der Qualität eines 
Sortieralgorithmus müssen wir mit unterschiedlich großen und unterschied¬ 
lich geordneten Datenmengen arbeiten sowie unterschiedliche Datentypen un¬ 
tersuchen. Außerdem gibt es noch einige andere Sortieralgorithmen, die hier 
aus Platzgründen nicht aufgeführt werden können. Eine genauere Analyse der 
bekannten Sortieralgorithmen gibt N. Wirth in seinem Buch "Algorithmen 
und Datenstrukturen". 

Für unseren "täglichen" Bedarf an Sortieralgorithmen können wir festhalten, 
daß sich Quicksort oft als der schnellste Algorithmus bei größeren Datenmen¬ 
gen herausstellt. Bubblesort dagegen ist wegen seiner Einfachheit zu empfeh¬ 
len, wenn es nicht so sehr auf die Rechenzeit ankommt. Immerhin ist Bubble¬ 
sort einer der "schnelleren" Algorithmen. (Zu Quicksort siehe auch Kapitel 
10 . 1 .) 


Zum Abschluß noch eine kleine Funktion, die ein sortiertes Feld von ganzen 
Zahlen nach einem bestimmten Element durchsucht, um dann den logischen 
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Wert TRUE zu erhalten, wenn das Element gefunden ist, und FALSE, wenn es 
nicht vorhanden ist. Die vorgestellte Art des Suchens nennt sich binäres Su¬ 
chen, weil von der Mitte des Datensatzes ausgehend abhängig vom Wert der 
Suchzahl nur nach links und nach rechts weitergesucht wird. Beim Durch¬ 
suchen der entstandenen Hälfte des Datensatzes wird wieder entsprechend vor¬ 
gegangen, d.h. der Datensatz wieder halbiert. 


FUNCTION binsuch (suchzahl : INTEGER) : BOOLEAN; 

VAR links, rechts, Position : INTEGER; 

gefunden : BOOLEAN; 

BEGIN 

links : = 1; rechts := max; 

REPEAT 

Position := (links + rechts) DIV 2; 

IF suchzahl > element [position] 

THEN links := position + 1 
ELSE rechts:= position - 1; 
gefunden := suchzahl = element [position] 

UNTIL (links > rechts) OR gefunden; 
binsuch := gefunden 
END; (* von binsuch *) 

Aufgabe: Machen Sie sich den Such Vorgang auf einem Blatt Papier anhand 
einer Zahlenfolge klar. 


7.3 Verbünde 

Es gibt Dinge, die gehören einfach zusammen: 

Name, Vorname, Straße, Hausnummer und Ort - 
Zähler und Nenner - 

Name, Alter, Geschlecht, Gewicht und Schuhgröße - 
Nummer, Name, Regalnummer, Preis, Anzahl und Art- 

Oft treffen wir auf Daten, die sinnvoll unter einem Oberbegriff zusammen¬ 
gefaßt werden sollen: Adressen, Brüche, Personaldaten, Artikel. Eine solche 
Zusammenfassung ist in Pascal möglich durch den strukturierten Datentyp 
Verbund (RECORD). 

TYPE Geschlecht = (maennlich, weiblich); 

Art = (Buecher, Bekleidung, Lebensmittel, 

Elektro); 

Adresse = RECORD 

Name, Vorname, Strasse, Ort: STRING[20]; 
Hausnummer: INTEGER 
END; 
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Bruch = RECORD 

Zaehler, Nenner : INTEGER 
END; 

Persondat = RECORD 
Name 
Alter 
Gewicht 
Sex 

Schuhgr 
END; 

Artikel = RECORD 

Nummer : INTEGER; 

Name : STRING[20]; 

Regalnr : INTEGER; 

Preis : REAL; 

Anzahl : INTEGER; 

Woher : Art 

END; 

Mit diesen Typendeklarationen sollen folgende Variablen verwendet werden: 

VAR Pers : ARRAY[1..30] OF Adresse; 

Produkt : Artikel; 

a,b : Bruch; 

x,y,z : Persondat; 

Dann sind korrekte Operationen: 

Produkt.Woher := Elektro; 

Pers [15].Name := 'Meier'; 

Pers [16] := Pers [15]; 
a.Zaehler := 7; 
n.Nenner := a.Zaehler; 
x.Name := Pers [15].Name; 
y:= x;7 :=x; 

Mit dem Variablennamen x ist der ganze Verbund mit allen seinen Teilen ge¬ 
meint. Dagegen wird mit x.Name nur auf einen bestimmten Teil zugegriffen. 

Falsche Operationen sind dagegen: 

Woher := Elektro; 

Pers.Name := 'Buecher'; 

Pers.Name [15] := 'Meier'; 

Nenner := Zaehler; 

Achtung: Bei der Zuweisung eines Verbundes an einen anderen werden alle 
Teile des Verbundes zugewiesen. Daher ist diese Zuweisung nur möglich, 
wenn beide Variablen vom gleichen Typ sind! 


STRING[20]; 

INTEGER; 

REAL; 

Geschlecht; 
17. .46 
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Bei der Zuweisung von Teilen von Verbunden müssen beide Teile vom glei¬ 
chen Typ sein. 

Verbund: 



Zugriff auf Verbundvariablen: 



Wie in den Beispielen zu sehen war, können auch Felder von Verbunden auf- 
treten. Weiterhin sind Felder als Teile von Verbunden möglich: 

TYPE Beispiel = RECORD 

a : ARRAY [1..5] OF INTEGER; 
b : BOOLEAN 
END; 

VAR Wert : ARRAY [1..10] OF Beispiel; 

Nun sind folgende Zuweisungen möglich: 

Wert [8].b := TRUE; 

Wert [3] .a [5] := 120; 

Wert [5].a[3] := 40; 

Aufgabe: Bilden Sie weitere gültige Zuweisungen! 

Auch Schachtelungen von Verbunddeklarationen können von Nutzen sein, 
werden aber oft recht komplex. 

TYPE Wohnung = RECORD 

Strasse : STRING[20]; 

Nr, PLZ : INTEGER; 

Ort : STRING[20] 

END; 


Person = RECORD 

Name,Vorname:STRING [20]; 
Sitz:Wohnung 
END; 
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Statt dieser Typdeklaration können wir auch schreiben: 

TYPE Person = RECORD 

Name,Vorname : STRING[20]; 

Sitz : RECORD 

Strasse : STRING[20]; 

Nr,PLZ : INTEGER; 

Ort : STRING[20] 

END; 

END; 

Im Ergebnis scheinen beide Deklarationen gleich zu sein. Doch ist mit der 
zweiten Version keine Variable vom Typ Wohnung möglich. 

Nun deklarieren wir die Variablen: 

VAR a,b:Person; 

Gültige Zuweisungen sind dann: 

a.Name: = 'Meier' ; 

a. Sitz.Strasse:='HauptStrasse' ; 

b. Name:=a.Name; 

b.Sitz.Ort:=a.Name; 

Falsche Zuweisungen sind dagegen: 

a.Sitz: = 'Unna' ; 
a.Sitz.PLZ: = ' 4750' ; 

Aufgabe: Bilden Sie weitere gültige Zuweisungen! 

Nun noch eine Hilfe für die Arbeit mit Verbunden: die WITH-Anweisung. 

Wenn wir öfter im Programm Daten zu behandeln haben, die Teile von Ver¬ 
bunden darstellen, ist das oft sehr aufwendig und lästig, da die Teile allein 
nicht definiert sind. 

Mit Variablen vom Typ 

VAR Buch : RECORD 

Titel, Autor : STRING[20]; 

Seitenzahl : INTEGER; 

Preis : REAL 

END; 
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ist eine Zuweisung 

Autor := 'Rollke'; 

falsch! Das liegt nicht am Autor, sondern daran, daß eine Variable Autor nicht 
deklariert ist. Vielmehr muß es richtig heißen 

Buch.Autor := 'Rollke'; 

Wollen wir eine Inventarliste unserer Bücher aufstellen, müßten wir für jedes 
Buch die Eingabe wie folgt strukturieren: 

READLN (Buch.Autor); 

READLN (Buch.Titel); 

READLN (Buch.Seitenzahl); 

READLN (Buch.Preis); 

Hier bietet Pascal eine Hilfe an: 

WITH Buch DO BEGIN 
READLN (Autor); 

READLN (Titel); 

READLN (Seitenzahl); 

READLN (Preis) 

END; (* von WITH *) 


Auch die Zuweisung 

WITH Buch DO Autor := 'Rollke'; 

ist nun richtig. 


-*> Cwith) - 


Verbundbezeichner 




Zur Übung des RECORD-Typs ein kleines Beispielprogramm, das nach Belie¬ 
ben erweitert werden kann (und soll). Das folgende Programm läßt den Benut¬ 
zer die Daten des Periodensystems der Elemente eingeben: 


Elementname, Abkürzung, Atomgewicht, gibt es radioaktive 
Isotope? 





154 


Schneider CPC - Arbeiten mit Turbo Pascal 


Die Eingaben erfolgen in der Reihenfolge der Ordnungszahlen. Anschließend 
werden die Elemente jeweils nach Namen und Atomgewichten geordnet und 
ausgegeben. 


Erweiterungsvorschläge für das Programm: 

- nach anderen Kriterien ordnen; 

- Menüsteuerung einbauen; 

- Liste auf Drucker ausgeben; 

- alle (nicht-)radioaktiven Elemente ausgeben; 

- pro Element noch Isotope speichern (mit ARRAY); 

- später (wenn Dateien bekannt sind) zur Speicherung der Daten ändern. 


PROGRAM Periodensystem; 

TYPE Elementtyp - RECORD 

Name : STRING [20]; 

Abk : STRING [2] ; 

Ordnzahl : INTEGER; 

Radioakt : BOOLEAN; 

Atommasse : REAL 
END; (* von Record *) 

VAR Element : ARRAY [ 1..118 ] OF Elementtyp; 
n : INTEGER; 
ch : CHAR; 

PROCEDURE Sort (Modus , Ende : INTEGER); 

VAR i, j : INTEGER; 

PROCEDURE Tausche (VAR a,b : Elementtyp); 

VAR Hilf : Elementtyp; 

BEGIN 

Hilf :* a; 
a :« b; 
b :« Hilf 

END; (* von Tausche *) 

BEGIN 

FOR i:«l TO Ende-1 DO 
FOR j;-Ende DOWNTO i DO 
CASE Modus OF 

1 : IF Element [i].Name > Element [j].Name 

THEN Tausche ( Element [i] , Element [j] ); 

2 : IF Element [i].Atommasse > Element [j].Atommasse 

THEN Tausche ( Element [i] , Element [j] ) 

END (* von Case *) 

END; (* Von Sort *) 
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PROCEDURE Ausgabe ( Ende : INTEGER); 

VAR i : INTEGER; 

BEGIN 

FOR i:-=1 TO Ende DO WITH Element [i] DO BEGIN 
WRITE (Ordnzahl:3, Name:20,Abk:4 , 

* Atommasse 3 ',Atommasse:8:4); 

IF Radioakt THEN WRITE (’ hat ') 

ELSE WRITE (' ohne '); 

WRITELN (' radioaktive Isotope') 

END (* von With *) 

END; (* von Ausgabe *) 

BEGIN (* Hauptprogramm *) 

WRITELN ('Eingabe der Daten: '); WRITELN; 
n :- 0; 

REPEAT 

n :- n + 1; 

WITH Element [n] DO BEGIN 
Ordnzahl :- n; 

WRITELN (n:3 , Element:'); 

WRITE ('Name: '); READLN (Name); 

WRITE ('Abkuerzung: '); READLN (Abk); 

WRITE ('Atommasse: '); READLN (Atommasse); 

WRITE ('Radioaktiv (J/N) ? '); READ (KBD,ch); 

Radioakt :- (ch-'J') OR (ch-'j'); 

WRITELN; WRITELN 
END; (* von with *) 

WRITE ('Weiter (J/N) ? ’); READ (KBD,ch); WRITELN 
UNTIL (chO'J') AND (chO'j'); 

CLRSCR; 

WRITELN ('Liste nach Namen sortiert: '); WRITELN; 

Sort (l,n) ; 

Ausgabe (n); 

WRITELN; WRITELN (•RETURN-Taste druecken...'); 

READLN; 

WRITELN ('Liste nach Atommassen sortiert: '); WRITELN; 

Sort (2,n); 

Ausgabe (n) 

END. 

Aufgabe: Testen und erweitern Sie das Programm. 


Varianten 

Zum guten Schluß, als Krönung sozusagen, wollen wir uns mit einer besonde¬ 
ren Form des Verbundes beschäftigen, mit der Variante. Oft wird diese Form 
auch als varianter RECORD bezeichnet. 

Es handelt sich hier um die Möglichkeit, in der Typendeklaration Objekten mit 
gleichem Namen abhängig von bestimmten Eigenschaften verschiedene Struk¬ 
turen zuzuordnen. 
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In unserem Beispiel (Periodensystem) könnten wir z.B. daran interessiert sein, 
daß nur bei den Elementen, die radioaktive Isotope besitzen, auch noch die 
Strahlungsarten mitgespeichert werden. 


TYPE Strahlung = (alpha, beta, gamma); 

VAR Element = RECORD 

Name : STRING [20]/ 

Masse : REAL; 

CASE Radioak : BOOLEAN OF 
(TRUE : Art : Strahlung) 

END; 


Nun gibt es zwei verschiedene Möglichkeiten, die Variable Element mit Daten 
zu versorgen: 


Name: 

Uran226 

Masse: 

238.029 

Radioak: 

True 

Art: 

alpha 


Name: 

Helium 

Masse: 

4.0026 

Radioak: 

False 


Ein weiteres Beispiel: 


TYPE Schueler 


RECORD 

Name, Vorname : STRING[20]; 

Einschulung : RECORD 

Tag : 1. .31; 

Mon : 1..12; 

Jahr: INTEGER 
END; 

CASE Klassenstufe : INTEGER OF 
5,6,7,8,9,10 : (Klasse : STRING[20]; 

Klassenlehrer : STRING[20]) 
11,12,13 : (Tutor : STRING[20]; 

Kurse : ARRAY [1..8] OF 
STRING[20]) 

END; 


Pro Verbund darf ein variabler Teil (mit CASE) enthalten sein, der am Schluß 
des Verbundes stehen muß. 


Achtung: Klammern (um die Eintragliste) in der CASE-Anweisung beachten! 
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Variabler Teil: 



Das Syntaxdiagramm der Variante zeigt, daß das Variantenkennzeichen auch 
entfallen und nur der Typ angegeben werden kann (sog. "free unions"). 


Verbund: 



Ein Verbund ist ein Datentyp, unter dem verschiedene Datenty¬ 
pen zusammengefaßt sind. Entsprechend bestehen die Variablen 
vom Typ des Verbundes aus mehreren Teilen. 

Die Verbundvariablen können als Ganzes oder mit ihren Teilen 
behandelt werden. 

Die WITH-Anweisung hilft bei der Behandlung von Teilen eines 
Verbundes. 
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Kapitel 8 

Dateien und Listen 


8.1 Dateien 


Zur Datenverarbeitung gehört nicht nur das Verarbeiten, sondern auch das 
Speichern von Daten. 

Kurzfristig werden die Daten im Rechner gespeichert (im RAM, Random 
Access Memory). Hier sind die Daten jedoch flüchtig, d.h. wenn wir den Rech¬ 
ner ausschalten, sind die Daten gelöscht. 

Nun ist es sicher sinnvoll, die zu verarbeitenden oder verarbeiteten Daten auf 
externen Speichermedien zu speichern, die nicht flüchtig sind. 

Ein Speicher ist schon der Drucker. Dieser kann aber nur Daten aufnehmen 
und nicht wieder zurück in den Rechner geben. 


Als schnelles Speichermedium, das zugleich eine große Speicherkapazität be¬ 
sitzt, verwenden wir die Disketten. Auf ihnen können wir nicht nur Pro¬ 
gramme, sondern auch Daten speichern. Dieser Datenspeicherung liegt in 
Pascal ein spezielles Konzept zugrunde, das, wenn es richtig verstanden ist, 
eine recht komfortable Datenspeicherung zuläßt. Zunächst werden wir uns mit 
diesem Konzept beschäftigen und dann die Möglichkeiten der Dateibefehle 
kennenlemen. 


Es gibt generell zwei Arten von Dateien (flies im Englischen): Dateien mit 
wahlfreiem Zugriff (random access files) und Dateien mit sequentiellem Zu¬ 
griff (sequential access files). 


"Random access files": Diese Dateien zeichnen sich dadurch aus, daß man auf 
jedes Element der Datei direkt zugreifen kann. Beispielsweise ist der Rechner¬ 
speicher so organisiert. Jede Speicherzelle (Byte) ist mit einer Nummer verse¬ 
hen (Adresse), durch die sie direkt beschrieben oder gelesen werden kann. In 
einigen Betriebssystemen kennt man diese Art von Dateien ebenfalls. 
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"Sequential access files": Alle Daten sind hintereinander angeordnet, und es 
kann nur in dieser Reihenfolge auf sie zugegriffen werden. Diese Art der Da¬ 
teien ist nötig, wenn Magnetbänder als Speichermedien verwendet werden. 

In Pascal sind nur sequentielle Dateien möglich. Der Zugriff auf die Daten 
einer Diskette kann jedoch von seiten des Betriebssystems des verwendeten 
Rechners durch wahlfreien Zugriff geschehen. So sind sequentielle Dateien in 
Verbindung mit Diskettenlaufwerken nicht langsamer als andere. 

Den Aufbau einer Datei in Pascal können wir uns so vorstellen: Alle Daten¬ 
elemente werden in der Reihenfolge ihrer Eingabe in die Datei auf einem Band 
gespeichert (Band nur symbolisch). Dadurch hat jedes Element automatisch 
eine Nummer, nämlich seine Platznummer auf dem Band. 


ElementO 

Elementl 

Element2 



EOF 



Die Nummern, auf die eine später zu besprechende Prozedur zugreift, begin¬ 
nen mit 0. 

Das Ende einer Datei wird durch ein Element namens EOF (End-Of-File, 
Ende der Datei) gekennzeichnet. 

Eine leere Datei besteht wenigstens aus dem Element EOF. 

Die Datenelemente der Datei haben alle den gleichen Typ. Dieser Typ der Da¬ 
tenelemente wird im Deklarationsteil in der Dateideklaration vereinbart. Das 
Element EOF ist unabhängig von dieser Typdeklaration. 

Soll nun auf ein Element der Datei zugegriffen werden, so schafft man sich ein 
"Fenster" in die Datei. Mit der Typdeklaration der Datei wird automatisch 
eine Variable mitdeklariert, der sogenannte Dateizeiger. 

Diese Variable zeigt auf ein Datenelement der Datei und erlaubt den Zugriff 
auf dieses Element. 

Mit der Prozedur SEEK wird der Dateizeiger auf ein bestimmtes Element po¬ 
sitioniert. 


ElementO 

Elementl 

Element2 

Element3 

Element4 

EOF 

: 


Dateizeiger 
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Dieser Dateizeiger zeigt also auf ein bestimmtes Element und stellt sozusagen 
eine Verbindung mit dem Element her. 

Durch die READ-Anweisung wird ein Datenelement aus der Datei gelesen. 
Durch die WRITE-Anweisung wird ein Datenelement in die Datei geschrie¬ 
ben. Außerdem kann abgefragt werden, ob der Dateizeiger auf EOF, d.h. auf 
das Ende der Datei zeigt. 

Die Daten, die in einer Datei gespeichert werden, können von beliebigenTypen 
sein. So sind Dateien vom Typ INTEGER, REAL, CHAR, BOOLEAN sowie 
der Aufzählungstypen oder der zusammengesetzten Typen möglich. Als spezi¬ 
elle Dateien sind Binärdateien zu nennen, die Daten vom Typ BOOLEAN be¬ 
inhalten. Dazu gehören auch Codefiles von Programmen oder Bildschirm¬ 
grafiken. 

Eine weitere Form spezieller Dateien sind die sogenannten Textfiles. Darunter 
fallen z.B. die Programmtexte, aber auch selbst erstellte Texte. Ein enormer 
Vorteil liegt darin, daß der Benutzer vom Programm aus auch auf Pro¬ 
grammtexte zugreifen kann. 

Spezielle Textdateien sind die Standarddateien zur Ein- und Ausgabe, wie z.B. 
für die Tastatur und den Bildschirm. 

Wir wollen zur Übung der neuen Datenstruktur Datei zwei kleine Programme 
schreiben: 

1. Ein Programm zum Erstellen einer neuen Datei von zehn ganzen Zahlen. 

2. Ein Programm zum Lesen dieser (dann schon bestehenden) Datei von zehn 
ganzen Zahlen. 

Zuerst brauchen wir eine Variable für die Datei, nennen wir sie "f\ 

VAR f : FILE OF INTEGER; 

Mit dieser Variablendeklaration haben wir f als Name für eine Datei von gan¬ 
zen Zahlen deklariert. 

Weiterhin sei eine Variable i vom Typ INTEGER zu deklarieren. 

WRITE (f,i); 

schreibt das Datenelement i in die Datei an die aktuelle Stelle des Dateizeigers 
und rückt den Dateizeiger eine Stelle weiter. 
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READ (f,i); 

liest ein Datenelement aus der Datei an der Stelle des Dateizeigers, weist es der 
Variablen i zu und rückt den Dateizeiger eine Stelle weiter. 

Bevor wir aber überhaupt auf Elemente der Datei zugreifen können, muß die 
Datei eröffnet werden, d.h. der Rechner muß seine Datenleitungen zu der 
Stelle verknüpfen, wo die Datei steht bzw. wo die neue Datei stehen soll. 


ASSIGN (f, filename); 

verknüpft unsere (logische) Datei f mit einer tatsächlichen (physischen) Datei 
mit dem angegebenen Namen filename auf der Diskette. Der Filename ist ein 
STRING (Konstante oder Variable), der den Dateinamen enthält. 

Beispiel: ASSIGN (f,’A:TEST.DAT’); 

REWRITE (f); 

setzt den Dateizeiger einer neuen Datei auf das 0. Element und eröffnet damit 
die Datei. Existiert die Datei schon, wird sie überschrieben. 

RESET (f); 

setzt den Dateizeiger einer bereits existierenden Datei auf das 0. Element und 
eröffnet damit die Datei. Existiert die Datei noch nicht, tritt eine Fehlermel¬ 
dung auf. 

Achtung: In unserem Beispiel ist "f" der Name der Datei im Programm und 
"filename" der Name der Datei auf der Diskette! 

Wenn wir mit unseren Dateioperationen fertig sind (spätestens jedoch zum 
Programmende), muß die Datei noch geschlossen werden mit 

CLOSE (f); 

Damit sind alle Änderungen in der Datei permanent gespeichert, und die Datei 
wird in das Inhaltsverzeichnis der Diskette übernommen. 

Nun kommen wir zu unserem Programm: 

PROGRAM Scheibe; 

VAR i : INTEGER; 

f : FILE OF INTEGER; 
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BEGIN 

ASSIGN(f, 'A:Daten.DAT'); 

REWRITE (f) (* neue Datei eroeffnen *) 

FOR i:=1 TO 10 DO WRITE (f,i); 

CLOSE (f) (* Datei permanent speichern*) 

END. 


Aufgabe: Tippen Sie das Programm ein, und führen Sie es aus! 

Wenn wir mit dem DIR-Befehl das Inhaltsverzeichnis der Diskette aufrufen, 
sehen wir, daß die neue Datei namens DATEN.DAT gespeichert ist. 

In unserer Datei sollten die Zahlen 1 bis 10 gespeichert sein. 

Achtung: Die Zahlen sind in den Elementen 0 bis 9 gespeichert. Element 10 
enthält EOF (End Of File). 

Nun lesen wir die Datei, um uns davon zu überzeugen, daß die Daten tatsäch¬ 
lich gespeichert sind: 


PROGRAM Lese; 

VAR f : FILE OF INTEGER; 
i : INTEGER; 

BEGIN 

ASSIGN (f,'A:Daten.DAT'); 

RESET (f); (* alte Datei eroeffnen *) 

WHILE NOT EOF(f) DO BEGIN 

(* solange nicht Dateiende unter Zeiger *) 
READ (f,i); (* Datenelement lesen *) 

WRITELN (i) (* ausgeben *) 

END; (* while *) 

CLOSE (f) 

END. 


Aufgabe: Tippen Sie das Programm ein, und führen Sie es aus! 

Die Funktion 

EOF (f); 

ergibt den Wert TRUE, wenn der Dateizeiger auf das Ende der Datei f zeigt 
(keine Ausgabe dieses "Wertes” mit WRITE(LN) möglich!), sonst FALSE. 
Die WHILE-Schleife verhindert, daß versucht wird, nach dem Ende der Datei 
etwas auszugeben. 



164 


Schneider CPC - Arbeiten mit Turbo Pascal 


Eine Besonderheit der RESET-Anweisung besteht darin, daß sie auch in einer 
schon eröffneten Datei verwendet werden kann. Mit 

RESET (f); 

wird der Dateizeiger der (schon eröffneten) Datei f auf das Element 0 zurück¬ 
gesetzt. 

Etwas mehr Komfort 

Bei unserem kleinen Testprogramm fällt unangenehm auf, daß der Name der 
Datei nicht variabel gehalten ist. Dies können wir leicht ändern, indem wir 
eine Variable "filename" vom Typ STRING definieren, die wir den Benutzer 
eingeben lassen. 

Weiterhin müßten wir die Eröffnung der Datei mit RESET oder REWRITE 
davon abhängig machen, ob die Datei schon besteht oder neu angelegt werden 
soll. Wird nämlich eine schon bestehende Datei mit REWRITE eröffnet, ist 
der alte Dateninhalt verloren. Hier hilft uns die Möglichkeit, die Fehlermel¬ 
dung abzuschalten und softwaremäßig Fehler festzustellen. 

Die Compileranweisung 

(*$I-*) oder {$1-} Achtung: Kein Kommentar! 
schaltet die Fehlermeldung des Turbo Pascal-Systems ab und 
(*$I+*) oder {$1+} 
schaltet sie wieder ein. 

Die Fehlermeldung sollte aber nur abgeschaltet werden, wenn der Program¬ 
mierer sicher ist, daß nur ein ganz bestimmter (gewollter) Fehler und sonst 
keiner auftritt. Der Fehler, den wir erwarten, ist, daß sich die Datei nicht mit 
RESET eröffnen läßt, weil sie noch nicht existiert. 

Das System bricht beim Auftreten eines Fehlers nicht das Programm ab, gibt 
aber einer vordefinierten Funktion 

IORESULT 

einen Wert ungleich Null mit. 

Achtung: Nachdem diese Funktion abgefragt wurde, wird der Wert wieder 
auf Null gesetzt. 
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Der Wert von IORESULT beschreibt den aufgetretenen Fehler (siehe An¬ 
hang). 

Die Programmsequenz könnte sein: 


WRITE ('Name der Datei: '); 
READLN (filename); 

ASSIGN (f,filename); 


(*$I-*) (* Fehler aus*) 

RESET (f); (* Versuch: Alte Datei 

(*$I+*) (* Fehler an *) 

IF IORESULTOO THEN BEGIN (* wenn Fehler... *) 

WRITELN ('Neue Datei eroeffnen...'); 

REWRITE (f) 


END; (* von if *) 


*) 


Eine weitere Anweisung im Zusammenhang mit Dateien ist 


SEEK (f, Nummer); 

Hierbei ist f der Variablenname der Datei und "Nummer" eine ganze Zahl grö¬ 
ßer oder gleich Null. 

Mit SEEK wird der Dateizeiger auf ein bestimmtes Element mit der Nummer 
"Nummer" gesetzt. Dabei wird aber keine WRITE- oder READ-Anweisung 
ausgeführt. 

Mit dieser neuen Anweisung sind wir in der Lage, eine sequentielle Datei im 
"random-access-Verfahren" (d.h. mit wahlfreiem Zugriff) zu behandeln. 

Eine Anwendung 

Wir wollen nun unser Wissen über Dateien und Verbünde zusammenfassen in 
einem Programm zum "klassischen" Problem einer Adreßdatei. Aus Platz¬ 
gründen wird hier keine allzu komfortable Version des Programms darge¬ 
stellt. Es sei dem Leser überlassen, das Programm zu erweitern. 

Bedienen wir uns der Menü-Technik, um den Programmablauf zu steuern, 
und geben wir dem Benutzer folgende Möglichkeiten: 


V (eraendern von Daten 
L (oeschen von Daten 
A(lphabetisch Ordnen 
D (rucken der Datei 
S (uchen nachKriterien 
Z (umSchluss 
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Menü bedeutet, daß der Benutzer jederzeit einen Programmteil durch ein¬ 
faches Tippen des ersten Buchstabens der Zeile auswählen kann. 

Zu Beginn muß der Benutzer nach dem Dateinamen gefragt werden. Sollte die 
Datei nicht existieren, wird gefragt, ob eine neue Datei erstellt werden soll. 
Andernfalls wird das Programm beendet. 

Wir erstellen zunächst das "Rohprogramm" mit der Deklaration der globalen 
Variablen, den noch leeren Prozeduren und dem Hauptprogramm. 

Die Funktion Lieszeichen ist schon erstellt. Sie ermöglicht eine recht komfor¬ 
table Eingabe von Zeichen. Die Funktion EOLN (KEYBOARD) darin erhält 
den Wert TRUE, wenn die Return -Taste gedrückt wird. 

Außerdem ist die Prozedur Start fertig, die den Dateinamen abfragt, die Datei 
eröffnet oder eine neue Datei erstellt (erst als Leerdatei, um sicherzugehen, 
daß der Diskettenplatz ausreicht). Sie enthält die Prozedur Neu und ruft die 
Prozedur Menu auf. 

Die Prozedur Menu, ebenfalls schon fertig, ist die "zentrale Schaltstelle" des 
Programms. Von hier aus werden die anderen Prozeduren aufgerufen, und 
das Programm kehrt nach dem Durchlaufen dieser Prozeduren wieder hierher 
zurück. Wenn in der Prozedur Menu das Programmende gewählt wird, wird 
zuerst die Prozedur Start beendet, die die Datei schließt, bevor sie zum Haupt¬ 
programm zurückkehrt. 

Zur vorzeitigen Beendigung der Prozedur Start wird ein Label namens Exitl 
definiert und an das Ende der Prozedur gesetzt. Sollte der Benutzer einen fal¬ 
schen Dateinamen eingegeben haben, aber nicht gewillt sein, eine neue Datei 
zu eröffnen (weil er z.B. den korrekten Dateinamen nur vergessen hat), kann 
er hier das Programm verlassen, um sich das Inhaltsverzeichnis der Diskette 
erneut anzusehen. 

Die Mengen J, N und JN werden verwendet, um die häufige Abfrage von Ja 
und Nein zu erleichtern. 

Hinweis: Aufgrund des begrenzten Speicherplatzes muß das Programm mit 
der Compiler-Option C zu einem COM-file übersetzt und später von CP/M aus 
aufgerufen werden. 

Die Prozeduren Drucken und Suchen seien dem Leser als Übung empfohlen. 
Die restlichen Prozeduren werden hier noch entwickelt. Das Rohprogramm ist 
allerdings schon in seiner bisherigen Form lauffähig. Daher kann es schon ge¬ 
testet werden. 
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PROGRAM Adressdatei; 
CONST Maxn - 40; 


TYPE Setofchar - SET OF CHAR; 

Kurz 3 tring * STRING [20]; 

Adresse - RECORD 

Test : BOOLEAN; 

Name, Vorname, Strasse : Kurzstring; 
PLZ : INTEGER; 

Ort, Tel :Kurzstring 
END; (* Adresse *) 

Filetyp - FILE OF Adresse; 


VAR 


Person 

Leer 

Datei 

Dateiname 

ch 

Anzahl, Nr, 
J, JN, N 


ARRAY [l..Maxn] OF Adresse; 
Kurzstring; 

Filetyp; 

STRING [15]; 

CHAR; 

i, k : INTEGER; 

SET OF CHAR; 


FUNCTION Lieszeichen (m ; Setofchar) ; CHAR; 

VAR ch ; CHAR; 

OK : BOOLEAN; 

BEGIN 

REPEAT 

READ (KBD, ch); (* Lies Zeichen ohne Echo *) 

IF EOLN (KBD) THEN ch:-CHR(13); (* <Return>-Taste *) 

OK ch IN m; 

IF NOT OK THEN WRITE (CHR(7)) (* Bell *) 

ELSE IF ch IN [' '...CHR(126)] 

(* druckbare Zeichen *) 
THEN WRITE (ch) 

UNTIL OK; 

Lieszeichen ch 
END; (* von Lieszeichen *) 


PROCEDURE Lesen; 

BEGIN 

(* folgt noch *) 
END; 

PROCEDURE Schreiben; 
BEGIN 

(* folgt noch *) 
END; 

PROCEDURE Versendern; 
BEGIN 

(* folgt noch *) 
END; 


PROCEDURE Loeschen; 
BEGIN 

(* folgt noch *) 
END; 
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PROCEDURE Alphasort; 
BEGIN 

(* folgt noch *) 
END; 


PROCEDURE Drucken; 
BEGIN 

(* Uebung *) 
END; 

PROCEDURE Suchen; 
BEGIN 

(* Uebung *) 
END; 


PROCEDURE Menu; 

VAR Frage : CHAR; 

BEGIN 

REPEAT 

CLRSCR; 

WRITELN; WRITELN; 

WRITELN ('Die Datei hat ', Anzahl:3); 
WRITELN ('tatsaechliche Elemente.'); 


WRITELN; WRITELN ('Waehlen Sie:’); 
WRITELN; WRITELN; 

WRITELN (' V (eraendern von Daten '); 

WRITELN (* L (oeschen von Daten '); 

WRITELN (' A (lphabetisch Ordnen '); 

WRITELN (' D (rucken der Datei '); 

WRITELN (’ S (uchen nach Kriterien '); 

WRITELN; 

WRITELN (' Z (um Schluss '); 


Frage:»LiesZeichen(['V', 'v', 'L','1' , 'A','a','D','d','S', 's', 

’Z’, ’ 

CASE Frage OF 

'V','v' : Veraendern; 

'L','1' : Loeschen; 

'A','a' : Alphasort; 

'D','d' : Drucken; 

' S','s' : Suchen 
END (* case *) 

UNTIL Frage IN ['Z','z'] 

END; (* von Menu *) 

PROCEDURE Start; 

LABEL Exitl; 

VAR Satz : Adresse; 

PROCEDURE Neu; 

BEGIN (* von Neu *) 

Leer:=' '; (* 20 mal Leer *) 

ASSIGN(Datei,Dateiname); 

REWRITE (Datei); 
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FOR i:-l TO Maxn+1 DO BEGIN 

WITH Person [i] DO BEGIN (* leere Datei erzeugen *) 
Test := FALSE; Name := Leer; Vorname Leer; 

Ort :« Leer; PLZ :» 0; Strasse := Leer; Tel := Leer 
END; (* With *) 

WRITE(Datei,Person [i]); 

END; (* for *) 

CLOSE (Datei) 

END; (* von Neu *) 

BEGIN (* von Start *) 

Anzahl 0; (* noch keine Datei *) 

WRITELN; WRITELN; 

WRITE ('Eingabe des Dateinamens: '); 

READLN (Dateiname); 

ASSIGN(Datei, Dateiname); 

(*$I-*) RESET(Datei); (*$I+*) 

IF IORESULT <> 0 THEN BEGIN 

WRITELN ('Datei existiert nicht! '); 

WRITE ('Wollen Sie eine neue Datei (J/N) ?'); 
ch Lieszeichen (JN); 

IF ch IN J THEN Neu ELSE GOTO Exitl 
END; (* von if *) 

RESET(Datei); 

FOR i:-l TO Maxn DO BEGIN 
SEEK(Datei,i); 

READ(Datei,Satz) ; 

IF Satz.Test THEN Anzahl Anzahl + 1 
END; (* von for *) 

Menu ; 

CLOSE (Datei); 

Exitl: 

END; (* von Start *) 

BEGIN (* Hauptprogramm *) 

J ['J* f'j ' ] ; 

N :- ['N','n']; 

JN :- ('J','j',’N','n']; 

CLRSCR; 

Start; 

CLRSCR; 

WRITELN ('Das war’s...’) 

END 


Diese Art der Programmierung nennt man "top-down-Methode". Dabei wird 
zuerst das grobe Gerüst des Programms erstellt und dieses nach und nach mit 
Modulen (Prozeduren und Funktionen) ausgefüllt. 


Mit den noch zu entwickelnden Prozeduren Lesen, Schreiben, Veraendem, 
Sortieren und Loeschen hat das Programm seine wichtigsten Funktionen und 
kann schon recht komfortabel angewendet werden. 
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Als erstes folgt nun die Prozedur Lesen. Sie hat zwei Variablen, von denen 
eine zurückgegeben wird. Die Prozedur hat die Aufgabe, einen Datensatz mit 
der Nummer N zu lesen und auf dem Bildschirm darzustellen. Sie enthält 
selbst zwei Prozeduren Maske und Fuellen, die eine Bildschirmmaske generie¬ 
ren und diese mit dem Dateninhalt füllen. 


PROCEDURE Lesen (N : INTEGER; VAR Satz : Adresse); 
PROCEDURE Maske; 

BEGIN (* von Maske *) 


GOTOXY (1,2 ); 

WRITE 

('Nummer: 

') 

GOTOXY (1,8 ); 

WRITE 

( ' Name: 

') 

GOTOXY (1,10); 

WRITE 

('Vorname : 

') 

GOTOXY (1,12); 

WRITE 

( ' Strasse : 

’) 

GOTOXY (1,14); 

WRITE 

('Piz: 

’) 

GOTOXY (1,16); 

WRITE 

( 'Wohnort: 

') 

GOTOXY (1,18); 

WRITE 

('Telefon: 

') 


END; (* von Maske *) 


PROCEDURE Fuellen; 

BEGIN (* von Fuellen *) 
WITH Satz DO BEGIN 
GOTOXY(13,2 ); WRITE 
GOTOXY(13,8 ); WRITE 
GOTOXY(13,10); WRITE 
GOTOXY(13,12); WRITE 
GOTOXY(13,14); WRITE 
GOTOXY(13,16); WRITE 
GOTOXY(13,18); WRITE 
END (* von with *) 

END; (* von Fuellen *) 


(N : 3); 
(Name); 
(Vorname); 
(Strasse); 
(PLZ) ; 
(Ort); 
(Tel) 


BEGIN (* von Lesen *) 
CLRSCR; 

SEEK (Datei, N); 
READ(Datei,Satz) ; 
Maske; 

Fuellen 

END; (* von Lesen *) 


Als nächstes die Prozedur Schreiben. Auch sie hat zwei Parameter. Sie macht 
nichts anderes, als einen Datensatz mit der Nummer N und dem Inhalt Satz auf 
die Diskette zu schreiben. 


PROCEDURE Schreibe (N : INTEGER; Satz : Adresse); 
BEGIN 

SEEK (Datei,N); 

WRITE(Datei,Satz); 

END; (* von Schreiben *) 


Die Prozedur Veraendern dient dazu, Datensätze zu ändern. Dies bedeutet 
zweierlei. Es können schon vorhandene Daten umgeändert oder mit weiter 
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fortlaufender Nummer neue Datensätze eingegeben werden. Ein entsprechen¬ 
des Untermenü erlaubt die Auswahl. 

Diese Prozedur enthält die Prozedur Aendem, die die Änderung der Daten 
selbst übernimmt. Dazu wird der Datensatz erst gelesen. Dann wird mit der 
Prozedur Tasten, die ihrerseits Teil von Aendem ist, in die Bildschirmmaske 
gegangen und geändert. Die Prozedur Tasten erlaubt auch einfaches Drücken 
der Return- Taste. Dann werden die alten Daten einfach übernommen. 

Am Ende der Änderung kann sich der Benutzer noch entscheiden, ob er tat¬ 
sächlich die geänderten Daten speichern will. Tut er dies nicht, wird der Da¬ 
tensatz nicht gültig, und bei der Neueingabe wird die aktuelle Anzahl der Da¬ 
ten wieder zurückgesetzt. 


PROCEDURE Veraendern; 

VAR Frage : CH AR; 

PROCEDURE Aendern (VAR N : INTEGER); 

VAR Satz : Adresse; 

Hilf ; Kurzstring; 

PROCEDURE Tasten (x,y : INTEGER; VAR Wort : Kurzstring); 

VAR Wort2 : Kurzstring; 

BEGIN (* von Tasten *) 

GOTOXY (x,y); READLN (Wort2); 

IF Wort2 <> " THEN Wort :« Wort2; 

(* nur Aenderung, wenn nicht <Return>*) 

GOTOXY (x, y); WRITE (Wort) 

END; (* von Tasten *) 

BEGIN (* von Aendern *) 

Lesen (N, Satz); 

WITH Satz DO BEGIN 

Tasten (13,8,Name); Tasten (13,10,Vorname);Tasten (13,12,Str.); 
STR (PLZ, Hilf); (* PLZ voruebergehend als String *) 

Tasten (13,14,Hilf); 

Hilf : = CONCAT (Hilf,'0000'); (* falls leer *) 

PLZ := 0; k:«1000; 

FOR i:*1 TO 4 DO BEGIN (* Umwandeln in Integer *) 

PLZ :« PLZ + k * (ORD (Hilf[i]) - 48); k := k DIV 10 
END; (* von for *) 

Tasten (13,16,Ort); Tasten (13,18,Tel) 

END; (* von with *) 

GOTOXY(1,21); 

WRITE ('Wollen Sie abspeichern (J/N) ?'); 
ch Lieszeichen (JN); 

IF ch IN J THEN BEGIN 
Satz.Test TRUE; 

Schreibe (N, Satz); 

END (* von if *) 

ELSE N:«N-1 
END; (* von Aendern *) 
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BEGIN (* von Veraendern *) 

REPEAT 

CLRSCR; 

WRITELN; WRITELN; 

WRITELN (' N (eueingabe'); 

WRITELN ( 1 U (maendern •); 

WRITELN (• M (enue ’); 

WRITELN; WRITELN ('Bitte waehlen Sie'); 

Frage := Lieszeichen ([’N*,'n','U',’u','M','m']); 

IF Frage IN ['N*,’n'] THEN BEGIN (* 1. Element oder naechstes *) 
Nr := Anzahl+1; 

Aendern (Nr); 

Anzahl := Nr 
END; (* von if *) 

IF Frage IN ['U'/u'] THEN BEGIN 
WRITELN; 

WRITE ('Welche Nr. aendern? '); 

READLN (Nr) ; 

Aendern (Nr) 

END (* von if *) 

UNTIL Frage IN ['M','m'] 

END; (* von Veraendern *) 

Weiterhin haben wir noch die Prozedur Loeschen, die erlaubt, einen Datensatz 
zu löschen. Dazu wird dem Benutzer angeboten, die Nummer des Datensatzes 
oder den Namen der zu löschenden Person anzugeben. Zur Sicherheit wird der 
Datensatz noch einmal gezeigt und gefragt, ob wirklich gelöscht werden soll. 
Soll doch nicht gelöscht werden, kann man an das Ende der Prozedur springen 
und die Prozedur vorzeitig verlassen. 

PROCEDURE Loeschen; 

LABEL Exit; 

VAR Nnam, Vnam : Kurzstring; 

Ende : BOOLEAN; 

Satz : Adresse; 

PROCEDURE Weg (N : INTEGER); 

Var Satz : Adresse; 

BEGIN (* von Weg *) 

Lesen (N, Satz); 

WRITELN; 

WRIJELN ('Ist das die Person (J/N) ?'); 
ch := Lieszeichen (JN); 

IF Ch IN J THEN BEGIN 

WRITELN ('Loeschen...'); 

FOR k:=N TO Anzahl-1 DO BEGIN (* Umspeichern *) 

SEEK (Datei,k+1); READ(Datei,Satz); 

SEEK (Datei,k); WRITE(Datei,Satz) 

END; (* von for *) 

Anzahl := Anzahl - 1 
END (* von if *) 

END; (* von Weg *) 
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BEGIN (* von Loeschen *) 

CLRSCR; 

WRITELN (' Was wollen Sie loeschen ?'); 

WRITELN ( 1 N (ummer ’); 

WRITELN (' P (erson '); 

WRITELN (' E (nde '); 

ch := Lieszeichen (['N',*n*,’P', *p*, *E', ’e' ]); 

WRITELN; 

IF ch IN [ ' E ', *e'] THEN GOTO Exit; 

IF ch IN ['P','p'] THEN BEGIN 

WRITE ('Vorname: '); READLN (Vnam); 

WRITE ('Name : '); READLN (Nnam); 

i:=l; Ende:=FALSE; 

REPEAT 

SEEK (Datei,i); READ(Datei,Satz); 

IF (Satz.Name = Nnam) AND (Satz.Vorname = Vnam) 

THEN BEGIN 
Weg (i); 

Ende := TRUE 
END; (* von if *) 

IF (i>Anzahl) AND (NOT Ende) THEN BEGIN 
WRITELN ('Person nicht vorhanden'); 

Ende := TRUE 
END; (* von if *) 

i := i + 1 
UNTIL Ende 
END (* von if *) 

ELSE BEGIN 

WRITE ('Welche Nummer loeschen? '); 

READLN (i); 

Weg (i) 

END; (* von eise *) 

Exit: 

END; (* von Loeschen *) 

Zum Schluß betrachten wir noch die Prozedur Alphasort zum alphabetischen 
Sortieren des Datensatzes nach Nachnamen. Es wird ein einfacher Bubblesort- 
Sortieralgorithmus gewählt. 

PROCEDURE Alphasort; 

VAR i,j : INTEGER; 

Buf : Adresse; 

BEGIN 

RESET(Datei); 

SEEK(Datei,1); 

FOR i:=l TO Anzahl DO READ(Datei,Person[i]); 

FOR i:=1 TO Anzahl-1 DO 
FOR j:=Anzahl DOWNTO i DO 

IF Person[i].Name > Person[j].Name THEN BEGIN 
Buf:=Person[i]; Person[i]:=Person[j]; Person[j]:=Buf 
END; 

SEEK(Datei,1); 

FOR i:=1 TO Anzahl DO WRITE(Datei,Person[i]); 

END; (* von Alphasort *) 
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Datei: 


FILE 


-► 


Dateien können Elemente von einfachen oder zusammengesetzten 
Datentypen beinhalten. Die Elemente sind nach Nummern (ange¬ 
fangen bei Null) sequentiell aneinandergereiht. Das letzte Element 
einer Datei ist EOF. Durch die Operationen WRITE und READ 
wird auf die Elemente der Datei zugegriffen. 

Das Dateifenster wird durch WRITE und READ um ein Element 
weitergerückt. Steht EOF unter dem Dateifenster, ist dessen 
Inhalt Undefiniert, und die Funktion EOF (f) wird TRUE. 

Mit ASSIGN wird einer logischen Datei im Programm eine physi¬ 
sche Datei auf dem Datenträger zugeordent. 

Mit RESET wird eine alte, mit RE WRITE eine neue Datei eröff¬ 
net. Die CLOSE-Anweisung schließt eine Datei. 

Mit der SEEK-Anweisung kann das Dateifenster auf ein bestimm¬ 
tes Element gesetzt werden. 

FLUSH bewirkt, daß der Datenpuffer in die Datei geschrieben 
wird, ERASE löscht, RENAME benennt eine Datei um. 
FILEPOS gibt die Position des Dateifensters, FILESIZE die 
Größe der Datei an. 


Für ein komfortables Arbeiten mit Dateien stellt Turbo Pascal noch folgende 
Standardprozeduren und -funktionen bereit: 

Prozeduren: 

FLUSH (f); 

sorgt dafür, daß der Datenpuffer in die Datei geschrieben wird. Sonst wird 
nicht bei jeder Dateioperation das entsprechende Datenelement gelesen/ge¬ 
schrieben. Erst werden mehrere solcher Operationen in einem Puffer (Zwi¬ 
schenspeicher) verwaltet. 

ERASE (f); 

löscht eine (vorher geschlossene) Datei. 

RENAME (f, Name); 

benennt eine (vorher geschlossene) Datei f um. Der STRING Name wird der 
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neue Name der Datei auf der Diskette. Diese Prozedur hebt folglich die Wir¬ 
kung von ASSIGN auf. 

Funktionen: 

i : FILEPOS (f); 

Das Ergebnis vom Typ INTEGER dieser Funktion enthält die aktuelle Posi¬ 
tion des Dateizeigers. 

i : FILESIZE (f); 

ergibt die Anzahl der Datensätze der Datei f. Ergebnis vom Typ INTEGER. 


8.2 Textdateien 

Eine besondere Form der Dateien sind die Textdateien. Der Datentyp einer 
Textdatei wird mit dem reservierten Wort 

TEXT 

erklärt und steht stellvertretend für 

FILE OF CHAR 

In der Variablendeklaration können wir z.B. eine Variable erklären: 

VAR t : TEXT; 

Neben den Operationen READ und WRITE gibt es bei Textdateien noch die 
Operationen READLN und WRITELN. 

Zuerst wird der Datei t wie jeder anderen Datei mit ASSIGN ein Dateiname 
zugewiesen. Dann wird eine neue Datei mit REWRITE und eine bestehende 
Datei mit RESET eröffnet. Alsdann gibt es die Anweisungen: 

WRITE (t, <text>); 


und 


WRITELN (t, <text>); 

um Text ohne oder mit Zeilenvorschub in die Datei zu schreiben, und 

READ (t, <zeichen>); 

READLN (t, <text>); 


um ein Zeichen oder eine Textzeile aus der Datei zu lesen. 
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Weiterhin gibt es die Funktion 
EOF (t) (End OfFile) 

die TRUE ergibt, wenn das Ende der Datei erreicht ist, und 
EOLN (t) (EndOfLiNe) 

die TRUE ergibt, wenn das Ende einer Zeile erreicht ist (d.h. wenn das nächste 
zu lesende Zeichen ein Zeilenvorschub, CR, ist). 

Die Prozeduren/Funktionen SEEK, FLUSH, FILEPOS und FILESIZE dürfen 
nicht auf Textdateien angewendet werden! 

Wir wollen nun ein Druckersteuerprogramm schreiben, das eine Textdatei 
liest, nach vereinbarten Sonderzeichen absucht und den Text dann auf dem 
Drucker ausgibt. Dazu vereinbaren wir: Ist das erste Zeichen der Zeile ein 
Punkt, folgt genau ein Druckersteuerzeichen. Die Steuerzeichen sollen sein: 

F Seitenvorschub (formfeed) 

D Deutscher Zeichensatz 
A ASCII-Zeichensatz 
e Schriftart Elite 

p Schriftart Pika 

d Doppeldruck 
n Normaldruck 
I Schriftart Italic an 

i Schriftart Italic aus 


Mit diesem Steuerprogramm sind wir z.B. in der Lage, deutsche Umlaute und 
eckige Klammem in ein und demselben Text zu verarbeiten. Wir wissen, daß 
der ASCII-Zeichensatz keine Umlaute kennt. Drucker, die auf den deutschen 
Zeichensatz umschaltbar sind, ersetzen dann einige Sonderzeichen (z.B. die 
eckigen Klammem) durch Umlaute, da die Anzahl der Zeichen begrenzt ist. 
Ohne dieses Steuerprogramm könnten wir also nicht deutschen Text mit Pas¬ 
cal-Programmen mischen, die mit eckigen oder geschweiften Klammem ver¬ 
sehen sind. 


PROGRAM drucketext; 

CONST esc = #$1B; 

VAR name:STRING[20]; 

s:STRING[80]; 
ch:CHAR; 
t:TEXT; 

Ok:BOOLEAN; 
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BEGIN 

WRITE(LST,ehr(2)); 

CLRSCR; 

REPEAT 

WRITE('Zu druckender Text: '); 


READLN (name); 

ASSIGN (t,name); 

(*$I-*) RESET(t) ; (*$I+*) 

Ok:-IORESULT-O; 

IF NOT Ok THEN WRITELN ( A G,'Datei nicht vorhanden !'); 
UNTIL Ok; 

WHILE NOT EOF(t) DO BEGIN 


(* lies zeilenweise den Text *) 
READLN(t, s); 

IF POS('. 1 ,s)“1 THEN CASE s[2] OF 


(* suche Steuerzeichen *) 


'F':WRITE(LST,CHR(12)); (♦FF*) 

'D':WRITE(LST,esc,'R',CHR(2)); (^Deutsch*) 

'A':WRITE(LST,esc, 'R’,CHR(0) ); (*Ascii*) 

•e':WRITE(LST,esc,'M*); (*Elite*) 

'p':WRITE(LST,esc,’P'); (*Pika*) 

’d':WRITE(LST,esc,'G'); (*Doppel*) 

•n':WRITE(LST,esc^'H'); (^normal*) 

•I':WRITE(LST,esc,'4'); (*Italic*) 

'i':WRITE(LST,esc, '5'); (*Italic aus*) 


END 

ELSE WRITELN(LST,s) 


END; 

CLOSE(t) 

END. 


Die Befehlscodierungen für den Drucker beziehen sich auf einen EPSON-FX 
80-Drucker. Für andere Drucker können diese Zeichen natürlich anders lau¬ 
ten (siehe Handbuch für den Drucker). 

Die Abfrage nur des ersten Zeichens in der Zeile hat den Vorteil, daß das Pro¬ 
gramm enorm schnell ist. 

Mit dieser Methode ebenfalls denkbar ist ein Programm, das bei Auftauchen 
eines bestimmten Zeichens (z.B. &) im Text das darauffolgende Zeichen als 
Sonderzeichen interpretiert. Hierbei müßte allerdings jedes Zeichen einer Zei¬ 
le abgefragt werden. 


Standarddateien 

Eine besondere Form der Textdateien sind die sogenannten Standarddateien. 
Diese brauchen und dürfen vom Benutzer nicht mit ASSIGN, RESET, RE- 
WRITE und CLOSE behandelt zu werden. Sie sind bestimmten logischen Ge¬ 
räten zugeordnet. 
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INPUT 

Eingabedatei, durch die standardmäßig (d.h. wenn nichts anderes genannt ist) 
die Eingabe geschieht. Sie ist dem Gerät CON: (Console) zugeordnet. Mit der 
Compiler-Option (♦$B-*) kann sie TRM: (Terminal) zugeordnet werden. 

OUTPUT 

Ausgabedatei, über die standardmäßig (d.h. wenn nichts anderes genannt ist) 
die Ausgabe erfolgt. Sie ist dem Gerät CON: (Console) zugeordnet. Mit der 
Compiler-Option (*$B-*) kann sie TRM: (Terminal) zugeordnet werden. 

CON 

Ein- und Ausgabedatei, die dem Gerät CON : (Console) zugeordnet ist. Das ist 
normalerweise der Bildschirm und die Tastatur des Rechners. Eingaben über 
die Tastatur bewirken ein zusätzliches Echo des eingegebenen Zeichens auf 
dem Bildschirm. Ein Eingabepuffer verwaltet eine Eingabezeile. 

TRM 

Ein- und Ausgabedatei, die dem Gerät TRN: (Terminal) zugeordnet ist. Wie 
CON, aber ohne Puffer. 

KBD 

Eingabedatei, die dem Gerät KBD: (Keyboard) zugeordnet ist. Das ist die Ta¬ 
statur. Eingaben erscheinen nicht auf dem Bildschirm. 

LST 

Ausgabedatei, die dem Gerät LST: (Lister) zugeordnet ist. Das ist der ange¬ 
schlossene Drucker. 

AUX 

Ein- und Ausgabedatei, die dem Gerät AUX: (Auxiliary device) zugeordnet 
ist. Oft handelt es sich um ein Modem. 


USR 

Ein- und Ausgabedatei, die dem Gerät USR: (User defined device) zugeordnet 
ist. Hier kann der Benutzer ein Gerät zur Ein-/Ausgabe selbst definieren. 
(Siehe Handbuch zu Turbo Pascal.) 
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In READ(LN)- und WRITE(LN)-Befehlen ist die Datei, über die die Ein- und 
Ausgabe erfolgen soll, zuerst zu nennen. Wird keine Datei genannt, erfolgt die 
Ausgabe über OUTPUT und die Eingabe über INPUT. 

Das bedeutet: 

WRITELN ('Test'); ist gleich WRITE LN (OUTPUT, 'Test'); 

READLN (wort); ist gleich READ LN (INPUT,wort); 

Mit ASSIGN können den logischen Geräten auch andere Variablen für Textda¬ 
teien zugewiesen werden. 


Textdateien: 

TEXT 

Eine Textdatei ist eine Datei, deren Elemente vom Typ CH AR 
sind. Textdateien werden nicht mit SEEK, FLUSH, FILEPOS und 
FILESIZE behandelt. 

Die Anweisungen ASSIGN, REWRITE und RESET werden mit 
Textdateien benutzt wie mit anderen Dateien. Die Ein- und Aus¬ 
gaben geschehen mit READ, READLN, WRITE und WRI¬ 
TELN. 

Die Funktion EOF gibt das Dateiende, die Funktion EOLN das 
Zeilenende an. 

Vordefinierte Textdateien sind: INPUT, OUTPUT, CON, TRM, 
KBD, LST, AUX und USR. 

Vordefinierte Dateinamen sind: CON:, TRM:, KBD:, LST:, 
AUX: und USR:. 


8.3 Typenlose Dateien 

Als Anwendung der sogenannten typenlosen Dateien wollen wir ein Kopier¬ 
programm für Dateien konzipieren. 

Mit den bisher bekannten Dateitypen würde es sehr schwerfallen, ein solches 
Programm zu erstellen. Insbesondere müßten wir wissen, von welchem Daten¬ 
typ die einzelnen Elemente der Datei sind. Dann würden wir so viele Datenele¬ 
mente lesen, wie wir in den Rechnerspeicher bekommen, und sie sodann in 
eine neue Datei schreiben. 
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Bei der Benutzung typenloser Dateien entfällt die genaue Kenntnis der Typen 
der einzelnen Datenelemente. Eine solche Datei wird mit dem Wort FILE de¬ 
klariert: 

VAR f : FILE; 

Die Elemente einer solchen Datei sind vom Typ BYTE, d.h. von der Größe 
der kleinsten zusammenhängenden Speichereinheit. Auf der Diskette werden 
dann 128 Bytes zu einem Block zusammengefaßt. Solche 128-Byte-Blocke 
lassen sich dann mit zwei Prozeduren lesen und schreiben: 

BLOCKREAD (f, puffer, Anzblocks); 

liest eine Anzahl Blöcke (durch Anzblocks vom Typ INTEGER erklärt) aus 
der offenen Datei f in eine Variable puffer, die sinnvollerweise groß genug ist 
(z.B. als ARRAY), um den Dateninhalt der zu lesenden Blöcke aufzunehmen. 

BLOCKWRITE (f, puffer, Anzblocks); 

schreibt eine Anzahl Blöcke aus der Variablen puffer in die offene Datei f. 

Weiterhin gibt es auch mit typenlosen Dateien die Standardprozeduren und 
-funktionen ASSIGN, RESET, REWRITE, ERASE, RENAME, FILEPOS, 
FILESIZE und EOF. 

Allerdings gibt FILESIZE die Größe der Datei in Blöcken (pro 128 Bytes) 
wieder. Entsprechend gibt FILEPOS die Position des Dateizeigers in Blöcken 
wieder. 

Nun kommen wir zu unserem Programm. Wir definieren uns einen ARRAY 
mit 16 KByte Speicherplatz als Puffer zum Einlesen und Schreiben der Daten. 
Dazu wird eine Konstante Speicher = $4000 definiert. Der hexadezimale Wert 
$4000 ist gleich 16384, das entspricht genau 16 KByte (1 KByte = 1024 Byte). 
Hat Ihr Rechner mehr Speicherplatz zur Verfügung, kann diese Konstante ein¬ 
fach geändert werden. Weiterhin geben wir mit einer Konstanten an, wie groß 
ein Block ist. 

Nach der Frage nach den jeweiligen Dateinamen und der Eröffnung der Da¬ 
teien wird festgestellt, wie groß die Anzahl der mit einer Speicherfüllung zu 
kopierenden *Blocke (Anzbloecke) und die Anzahl der von der Datei zu kopie¬ 
renden Blöcke (Noch_zu_kopieren) ist. Dann werden immer so viele Blöcke 
kopiert, wie in den Pufferspeicher passen. 

Zum Schluß werden die Dateien geschlossen, was besonders für die neue Datei 
wichtig ist, damit sie ins Inhaltsverzeichnis der Diskette übernommen wird. 
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Typenlose Datei: 

VAR f: FILE; 

Typenlose Dateien gestatten den direkten Zugriff auf Diskettenda¬ 
teien ohne Rücksicht auf das Datenformat. Die Elemente bei die¬ 
ser Zugriffsmethode sind als vom Typ Byte anzusehen. 

Die Standardprozeduren und -funktionen ASSIGN, RESET, 
REWRITE, ERASE, RENAME, FILESIZE, FILEPOS und 
EOF sind zu benutzen. Die Funktionen FILESIZE und FILEPOS 
beziehen sich auf Blöcke pro 128 Byte. Mit BLOCKREAD und 
BLOCKWRITE können solche Blöcke aus der Datei gelesen oder 
in die Datei geschrieben werden. 


PROGRAM Kopiere_Files; 

CONST Speicher = $4000; {16 KByte) 

Block - 128; {Blöckgroesse} 

VAR Puffer : ARRAY [1..Speicher] OF BYTE; 

Original, Kopie : STRING[20]; 

Originalfile, 

Kopiefile ; FILE; 

Anzbloecke, Liesbloecke, 

Noch_zu_kopieren: INTEGER; 

BEGIN 

REPEAT 

CLRSCR; 

WRITELN ('Kopierprogramm: '); 

WRITE ('Name der zu kopierenden Datei: '); 

READLN (Original); 

ASSIGN (Originalfile, Original); 

{$1-} RESET (Originalfile); ($1+) {existiert file?) 

UNTIL IORESULT - 0; 

WRITE ('Name der Kopie: '); 

READLN (Kopie); 

ASSIGN (Kopiefile,Kopie); 

REWRITE (Kopiefile); 

Anzbloecke :« Speicher DIV Block; 

{Zahl der zu kopierenden Bioecke} 
Noch_zu_kopieren := FILESIZE (Originalfile); 

WHILE Noch_zu_kopieren > 0 DO BEGIN {wenn noch etwas da) 

IF Anzbloecke <~ Noch_zu_kopieren THEN Liesbloecke :« Anzbloecke 

ELSE Liesbloecke :* Noch_zu_kopieren; 
BLOCKREAD (Originalfile, Puffer, Liesbloecke); 

BLOCKWRITE (Kopiefile, Puffer, Liesbloecke); 

Noch_zu_kopieren := Noch_zu_kopieren - Liesbloecke 
END; 

CLOSE (Originalfile); 

CLOSE (Kopiefile) 

END. 
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Hinweis: Wir hätten auch den Datentyp CH AR für die Elemente des ARRAYs 
wählen können, ohne etwas zu verändern, da CHAR auch ein Byte Speicher¬ 
platz einnimmt. Würden wir den Datentyp INTEGER z.B. als Elementtyp des 
ARRAYs verwenden, müßte der Bereich des Feldes halbiert werden, da IN¬ 
TEGER zwei Bytes Speicherplatz braucht. 

8.4 Zeiger 

Es gibt schon merkwürdige Typen in Pascal... 


TYPE Zeiger = ^Objekt; 


Eine Variable dieses Typs ist nicht selbst vom Typ Objekt (dann müßte es 
TYPE Zeiger = Objekt heißen), sondern eine Variable, die auf das Objekt 
zeigt. 

Der Datentyp Zeiger ist von einfachem Typ (wie INTEGER, CHAR, REAL, 
BOOLEAN und Aufzählungen). 

Deklarieren wir uns zwei Zeigervariablen: 


TYPE Zeiger = A CHAR; 

VAR a, b : Zeiger; 

(VAR a, b : ''CHAR; wäre auch möglich gewesen!) 

Achtung: Die Variablen a und b sind nicht vom Typ CHAR. 

Die beiden Zeiger zeigen nun in die Weltgeschichte hinein. Das ist ein ziemlich 
unbefriedigender, weil Undefinierter Zustand. Daher gibt es eine Konstante 
namens 

NIL 

(engl. Nichts), die jedem Zeiger beliebigen Typs zugeordnet werden kann. 
Wir nennen diese Konstante NIL auch Erdung (aus der Physik bekannt). 

Mit 


a := NIL; 
b := NIL; 

haben die Zeiger a und b definiert Zustände. Sie sind geerdet. 
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Der Sinn dieser Erdung liegt darin, daß wir später z.B. das Ende einer Liste 
durch eine solche Erdung kennzeichnen oder entscheiden können, ob ein Zei¬ 
ger auf ein Element zeigt oder nicht. 

Nun wollen wir unsere Zeiger auf Objekte vom Typ CHAR zeigen lassen. 
Dazu benötigen wir die Prozedur 

NEW (<zeiger>); 

Mit dieser Prozedur wird eine vorerst leere Speicherstelle (Variable) erzeugt, 
auf die der Zeiger zeigt. Der Datentyp dieser Variablen ist durch den Zeiger¬ 
datentyp festgelegt. 

NEW (a); 

NEW (b); 

erzeugt Variablen mit den Namen 
a A und b A 

vom Typ CHAR (erinnern wir uns: Der Zeigertyp ist ''CHAR). 

Nun sieht das Bild folgendermaßen aus: 


a Ä 

b -► - 

b Ä 

Die Kästchen (Variablen) mit Namen a A und b A sind noch leer. Nun weisen wir 
ihnen Speicherinhalte zu: 

a A := 'x' ; 
b A := 'y'; 
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Im Bild sieht das so aus: 



Die Zeiger a und b zeigen nun auf die Variablen a A und b A mit den Inhalten x 
und y. 

Folgende Zuweisungsarten zwischen diesen Zeigern müssen wir jetzt genau 
unterscheiden: 

a : = b ; 

Im Bild: 



Mit dieser Zuweisung wurde der Zeiger a so "verbogen", daß er auf dasselbe 
Objekt zeigt wie der Zeiger b. 

Beachten Sie: Auf das Objekt a A zeigt nun kein Zeiger mehr. Dieses Objekt ist 
verloren! Es gibt keine Möglichkeit, wieder auf dieses Objekt zuzugreifen. 
Werden Zeigervariablen einander zugewiesen, müssen die Objekte, auf die die 
Zeiger zeigen, vom selben Typ sein. 

Hätten wir die andere Zuweisungsart gewählt, nämlich 

a a : = b A ; 


ergäbe sich folgendes Bild: 
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Hier haben wir nur den Inhalt der Speicherstelle geändert, auf die a zeigt. Im 
Speicher des Rechners gibt es nun den Buchstaben y zweimal. 

In Turbo Pascal ist die DISPOSE-Anweisung das Gegenstück zur NEW-An- 
weisung. Mit 

DISPOSE (a); 

wird die Speicherstelle, die der Zeiger a einnimmt, wieder freigesetzt. In Ver¬ 
sion 1.0 ist DISPOSE nicht verfügbar. 

Statt dessen wird hier das Befehlspaar 

MARK und RELEASE 

verwendet in der Form 

VAR a : A INTEGER; 

MARK (a); 

RELEASE (a); 

Die Mark-Anweisung markiert zum Zeitpunkt ihrer Ausführung den Beginn 
des Speichers für Zeigervariablen. Mit RELEASE werden alle Zeigervari¬ 
ablen seit dem letzten MARK gelöscht. Dabei ist a ein Zeiger auf eine INTE¬ 
GER-Variable. a zeigt nämlich auf den Anfang des Variablenstacks. 

Die Anweisung DISPOSE und das Anweisungspaar MARK und RELEASE 
sind in einem Programm nicht zu mischen. Man hat sich für eine Form zu ent¬ 
scheiden. 

Allerdings kann in Version 2.0 auch MARK und RELEASE verwendet wer¬ 
den, was z.B. sinnvoll sein kann, wenn man Umsteiger auf Turbo Pascal ist 
und alte Programme mit wenigen Verändernngen weiterbenutzen will. 

Folgende zusätzliche Prozeduren und Funktionen sind mit Zeigervariablen de¬ 
finiert: 

GETMEM (p, i); 

Prozedur, um einer Zeigervariablen p einen Speicherplatz von genau i Byte 
für den Heap bereitzustellen. Im Gegensatz zu NEW, das dem Zeiger so viel 
Platz bereitstellt, wie er benötigt, wird mit GETMEM der Platz vorher be¬ 
grenzt. 
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FREEMEM (p, i) ; 

ist die Umkehrprozedur zu GETMEM. Mit ihr wird der Zeigervariablen p der 
Platz von i Byte wieder zurückgegeben, i muß den gleichen Wert haben, der 
durch GETMEM definiert wurde. 

i: =MAXAVAIL; 

ist eine Funktion mit einem Ergebnis vom Typ INTEGER, die die Größe des 
größten zusammenhängenden Speicherplatzes in Bytes angibt, der für Zeiger¬ 
variablen zu verwenden ist. 


8.5 Listen 

Wir haben schon eine Datenstruktur kennengelemt, die eine Liste darstellt: das 
eindimensionale Feld. 

Die Elemente eines solchen Feldes sind alle aneinandergereiht. Die Reihenfol¬ 
ge der Elemente wird durch die Nummern der Elemente bestimmt. Der große 
Nachteil eines Feldes liegt darin, daß die Anzahl der Elemente von vornherein 
bestimmt werden muß. Sicher ist das eine Speicherplatzverschwendung, wenn 
das Feld im Verlauf des Programms nicht ausgefüllt wird, und andererseits 
ärgerlich, wenn das Programm mehr Daten erzeugt, als das Feld aufnehmen 
kann. 

Abhilfe schafft eine Liste, die gebildet wird durch Datenelemente, die aus zwei 
Komponenten bestehen: 

1. einem Zeiger auf ein anderes Element, 

2. dem Dateninhalt 

Eine solche Liste könnte so aussehen: 


Wurzel 



Der Zeiger eines jeden Elements der Liste zeigt auf das benachbarte Element. 
Den Anfang der Liste stellt ein Element namens Wurzel dar, das Ende wird 
durch die Erdung NIL angegeben. 
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Die Dateninhalte der Listenelemente sind Zahlen von 1 bis 5. Die umgekehrte 
Reihenfolge kommt durch die besondere Art des Listenersteliens zustande. 

Schaffen wir uns nun zunächst eine Datenstruktur für die Listenelemente. Der 
Datentyp muß sicher ein Verbund sein, der sowohl den Zeiger auf das nächste 
Element als auch den Dateninhalt des Elements umfaßt. Der Dateninhalt soll 
vom Typ INTEGER sein. 

TYPE Element = RECORD 

Naechster : Zeiger; 

Inhalt : INTEGER 
END; 

Das Problem besteht jetzt im Datentyp Zeiger. Denn mit 

TYPE Zeiger = A Element; 

haben wir es mit einer rekursiven Typendeklaration zu tun. Was deklarieren 
wir denn nun zuerst? 

Das Problem wird in Pascal dadurch gelöst, daß vorgeschrieben ist, den Zei¬ 
ger zuerst zu deklarieren. Unsere Typendeklaration sieht also wie folgt aus: 

TYPE Zeiger = A Element 

Element = RECORD 

Nächster : Zeiger; 

Inhalt : INTEGER 
END; 

Nehmen wir noch zwei Variablen dazu: 

VAR Wurzel, z : Zeiger; 

Um die Liste zu erzeugen, erden wir zunächst den Zeiger Wurzel: 

Wurzel := NIL; 

Nun erzeugen wir ein leeres Element: 

NEW (z); 

Die Situation stellt sich jetzt wie folgt dar: 

Wurzel —--► NIL 




z 


• stellt einen Zeiger dar, 
der auf nichts zeigt. 
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Lesen wir einen Dateninhalt ein: 
z A .Inhalt := 1; 

Mit dieser Programmzeile weisen wir dem Inhalt-Teil des Elements, auf das z 
zeigt, die Zahl 1 zu. 

Wurzel-► NIL 

z-► - 

1 

Nun soll der Zeiger-Teil des Elements auf die Erdung zeigen: 

z A .Naechster := Wurzel; 

Wurzel-► NIL 

z " rm —i * 

1 


Der letzte Schritt besteht darin, daß wir die Wurzel auf das neueste Element 
(d.h. bisher unser einziges Element) zeigen lassen: 


Wurzel := z; 

Wurzel-► 

z-► 


•- 


1 


NIL 


Was ist schon eine Liste mit einem einzigen Element? Also schaffen wir ein 
zweites... 

NEW (z); 

erstellt uns ein neues Leerelement. 
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An dieser Stelle verstehen wir auch, warum der Zeiger namens Wurzel nötig 
ist. Hätten wir ihn nicht auf das zuletzt eingefügte Element zeigen lassen, wäre 
der Zugriff auf dieses Element verloren, nachdem wir die NEW (z)-Anwei- 
sung ausgeführt haben. 


Durch 

z A .Inhalt := 2; 

weisen wir dem neuen Element einen Dateninhalt zu. 



Mit der Anweisung 

z A .Naechster := Wurzel; 

schaffen wir die Verknüpfung zum letzten Element. 
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Als letzte Operation rücken wir den Zeiger Wurzel wieder weiter auf das neu¬ 
este Element: 



Noch einmal schreiben wir diese vier Schritte zum Erzeugen und Anbinden 
eines dritten Elements, jedoch in etwas kürzerer Form: 


NEW (z); 

z A .Inhalt := 3; 



z A .Naechster := Wurzel; 



Wurzel := z; 



3 


2 


1 
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Wir haben nun schon eine Liste mit drei Elementen erzeugt. Auffallend sind 
dabei zwei Tatsachen: 

1. Die Liste wird rückwärts aufgebaut. 

2. Wir haben immer die gleichen vier Anweisungen gebraucht. 

Damit sind wir in der Lage, ein Programm zu schreiben, das eine Liste von 
Zahlen erstellt. Als Abbruchbedingung definieren wir: Wenn die Zahl Null 
eingegeben wird, stellt sie das Ende der Liste dar. 

PROGRAM Listei; 

TYPE Zeiger = A Element; 

Element = RECORD 

Naechster : Zeiger; 

Inhalt : INTEGER 
END; 

VAR Wurzel, z : Zeiger; 

BEGIN 

Wurzel := NIL; (* Erdung der Liste *) 

REPEAT 

NEW (z); (* neues Element schaffen *) 

READLN (z A .Inhalt); (* Dateninhalt einiesen *) 
z A .Naechster := Wurzel; 

(* mit naechstem El. verbinden *) 
Wurzel := z (* Wurzel aktualisieren *) 

UNTIL z A .Inhalt = 0 
END. 


Eine Liste zu erstellen ist ziemlich unbefriedigend, wenn wir sie nicht auch 
wieder lesen können. Dazu erweitern wir das Programm durch eine Schleife, 
in der ein Zeiger, der Zeiger z, von der Wurzel an die Liste durchläuft und die 
Dateninhalte der Elemente ausgibt, solange er nicht auf NIL zeigt. 

Achtung: Niemals den Zeiger Wurzel verändern, da sonst der Anfang der Li¬ 
ste verloren wäre. 


PROGRAM Liste; 


TYPE Zeiger = A Element; 

Element = RECORD 

Naechster : Zeiger; 
Inhalt : INTEGER 
END; 


VAR Wurzel, z : Zeiger; 
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BEGIN 

WRITELN (»Erstellen der Liste.'); 

WRITELN (»Geben Sie Zahlen ein. Ende mit Null.'); 

Wurzel := NIL; (* Erdung der Liste *) 

REPEAT 

NEW (z); (* neues Element schaffen *) 

READLN (z A .Inhalt); (* Dateninhalt einiesen *) 

z A .Naechster := Wurzel;(* mit naechstem El. verbinden *) 
Wurzel := z (* Wurzel aktualisieren *) 

UNTIL z A .Inhalt = 0; 

<*-*) 

WRITELN ('Ausgabe der Liste: ’); 

z := Wurzel; (* Laufzeiger auf Wurzel setzen *) 

WHILE zONIL DO BEGIN 

WRITELN (z A .Inhalt);(* Lese Element unter Lauf zeiger *) 
z := z A .Naechster (* Laufzeiger weiterruecken *) 

END 

END. 


Aufgabe: Testen Sie das Programm. In welcher Reihenfolge erscheinen die 
eingegebenen Zahlen wieder in der Ausgabe? 

Beim Arbeiten mit einer Liste sind zwei Operationen wichtig: 

1. Einfügen 

2. Löschen 


Was bedeutet es, ein neues Element nach einem bestehenden Element einzu¬ 
fügen? Dazu deklarieren wir noch eine weitere Zeigervariable: 

VAR Wurzel, z, Hilf : Zeiger; 


Die Situation stellt sich folgendermaßen dar: 


Wurzel- 


r~r~ 

;—i _ 

1 _ 

: i 

w - 


w 


v- 



4 

3 

2 

i 


NIL 



Hilf 
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Es existiere eine Liste aus vier Elementen. Der Laufzeiger z zeigt auf das Ele¬ 
ment, nach dem das neue Element eingefügt werden soll. Mit 


NEW (Hilf); 

Hilf A .Inhalt := 5; 

wurde ein neues Element erzeugt und mit einem Dateninhalt gefüllt. Einfügen 
bedeutet nun, daß der Zeiger des neuen Elementes auf das Element nach z zei¬ 
gen soll: 

Hilf A .Naechster := z A .Naechster; 


und das Element, auf das z zeigt, selbst auf das neue Element zeigen soll: 

z A .Naechster := Hilf; 


Die neue Situation: 


Wurzel 




-► NIL 


Hilf-► 



5 


Frage: Warum wurde die Reihenfolge der Zuweisungen so gewählt? 
Machen wir eine Prozedur aus diesen Erkenntnissen: 


PROCEDURE Einfuegen (Hinterdiesem, Neues : Zeiger); 
BEGIN 

Neues A .Naechster := Hinterdiesem A .Naechster; 
Hinterdiesem A .Naechster := Neues 
END; 


Die Prozedur fügt ein Element Neues hinter dem Element Hinterdiesem ein. 
Dabei muß natürlich das Hauptprogramm ein neues Element schaffen, ihm 
einen Inhalt zuweisen, den Platz zum Einfügen finden und dann diese Prozedur 
aufrufen. 
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Achtung: Prüfen wir die möglichen Probleme dieser Prozedur. Ist das Ele¬ 
ment, hinter dem eingefügt werden soll, das letzte Element, geht es auch. Soll 
aber das Element als erstes Element der Liste eingefügt werden, dann funktio¬ 
niert diese Methode nicht. 


Aufgabe: Schreiben Sie eine Prozedur, die ein Element vor einem anderen 
Element einfügt! 


Nun kommen wir zum Problem des Löschens. Das Löschen stellt sich ebenfalls 
als recht einfach dar. Das Prinzip besteht darin, daß der Zeiger Naechster des 
Elementes vor dem zu löschenden Element auf das Element nach diesem "ver¬ 
bogen" wird. 


Wurzel 



t 




NIL 


gelöschtes 

Element 


Das Verbiegen des Zeigers erreichen wir mit 


z A .Naechster := z A .Naechster A .Naechster; 


Dabei ist das zu löschende Element das, welches den Dateninhalt hat: 


z A .Naechster A .Inhalt 

Bei unserer Löschprozedur müssen wir allerdings auch den Fall betrachten, 
daß das zu löschende Element das erste Element der Liste ist. Dies erreichen 
wir mit der folgenden Konstruktion, bei der der Variablenparameter Neue¬ 
wurzel die alte Wurzel aktualisiert, wenn das erste Element gelöscht wird. 

PROCEDURE Loesche (Zuloeschen : Zeiger; VAR Neuewurzel : Zeiger ); 

VAR Hilf : Zeiger; 

BEGIN 

IF Zuloeschen * Neuewurzel 

THEN Neuewurzel :* Zuloeschen A .Naechster 

ELSE BEGIN 

Hilf := Neuewurzel; 

WHILE Hilf A .Naechster <> Zuloeschen DO 
Hilf Hilf A .Naechster; 

Hilf A .Naechster Hilf A .Naechster A .Naechster 
END (* Else *) 

END; (* Loesche *) 
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Aufgabe: Testen Sie auch diese Prozedur in einem Programm. 

Mit der natürlich etwas abgewandelten Einfügeprozedur läßt sich ein Pro¬ 
gramm zum Erstellen einer geordneten Liste von Zeichen erstellen. 


PROGRAM Orderliste; 


TYPE Zeiger=*Objekt; 

Objekt»RECORD 

Naechster: Zeiger; 
Daten : CHAR 
END; (* Record *) 


Var Anfang, Hilf, Z : Zeiger; 

Zeichen : CHAR; 

Eingefuegt ; BOOLEAN; 

BEGIN (* Hauptprog *) 

WRITE('Eingabe eines Zeichens:'); 

READ (KBD,Zeichen); WRITELN (Zeichen); 
NEW (Anfang); 

Anfang*.Daten :« Zeichen; 

Anfang*.Naechster :» NIL; 


REPEAT 

WRITE('Eingabe eines Zeichens:'); 

READ (KBD,Zeichen); WRITELN (Zeichen); 

NEW (Z); 

Z*.Daten :» Zeichen; 

IF Anfang*.Daten > Zeichen THEN BEGIN 

Z*.Naechster:»Anfang; 
Anfang:»Z 
END (*if*) 


ELSE BEGIN 


Eingefuegt:»FALSE; 

Hilf:»Anfang; 

WHILE (Hilf* .NaechsterONIL) AND 
(Not Eingefuegt) DO BEGIN 

IF Hilf*.Naechster*.Daten>Zeichen THEN BEGIN 
Z*.Naechster:»Hilf*.Naechster; 

Hilf*.Naechster:=Z; 

Eingefuegt:»TRUE 
END; (*if*) 

Hilf:»Hilf*.Naechster; 

END; (*while*) 

If NOT Eingefuegt THEN BEGIN 
Hilf*.Naechster:=Z; 

Z*.Naechster:=Nil 
END; (*if*) 

END; (*else*) 

UNTIL Zeichen » '/’; 
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(*Lesen:*) 

Hilf :« Anfang; 

WHILE HilfONil DO BEGIN 
WRITE(Hilf A .Daten); 

Hilf := Hilf A .Naechster; 
END; (*while*) 

WRITELN; 

END. 


Aufgabe: Analysieren Sie das Programm, und testen Sie es. 


Außer den hier besprochenen einfach verketteten Listen sind auch mehrfach 
verkettete Listen denkbar. Wir könnten mit der Datenstruktur 

TYPE Zeiger = A Objekt; 

Objekt = RECORD 

Links, Rechts : Zeiger; 

Inhalt : CHAR 
END; 


eine zweifach verkettete Liste erstellen. Jedes Element hat dann neben dem Da¬ 
teninhalt zwei Zeiger, von denen einer auf den linken und einer auf den rech¬ 
ten Nachbarn des Elements zeigt. Eine solche Liste hat natürlich einen linken 
und einen rechten Anfang und zwei Enden mit NIL. 


NILV—• 


•- 



Vnil 


Durch einfaches Verbinden des Anfangs einer Liste mit ihrem Ende erhalten 
wir einen Ring (eine zyklische Struktur). Verbinden wir die Anfänge und En¬ 
den der zweifach verketteten Liste miteinander, erhalten wir einen doppelt 
verketteten Ring, der sich sehr leicht in beide Richtungen lesen läßt. 


8.6 Bäume 

Schreiben wir einmal unseren Stammbaum in der Art auf, daß wir bei uns 
selbst anfangen. 
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Und so weiter... 

Eine solche Struktur der Darstellung von Daten nennen wir Baum. Wir kön¬ 
nen auch andere Daten in Form eines Baums darstellen: 



Beide Bäume haben einiges gemeinsam: 


- Die Wurzel des Baums ist oben. 

- Von jedem Knotenpunkt gehen höchstens zwei Verzweigungen ab. 

- Von Endknoten gehen keine Verzweigungen aus. 


Bäume, die an jedem Knoten höchstens zwei Verzweigungen haben, nennen 
wir binäre Bäume. Wir wollen uns im folgenden nur mit binären Bäumen be¬ 
schäftigen. 


- Knoten: 

- Wurzel: 

- Endknoten: 

- Teilbaum: 


Von hier gehen Verzweigungen zu weiteren Elementen aus. 

Der Knoten, zu dem selbst kein anderes Element zeigt, d.h. 
der "obere" Knoten. 

Ein Knoten, der auf kein weiteres Element zeigt. Die Zeiger 
des Endknotens sollten also geerdet sein. 

Ein Teilbaum ist e in Baum, dessen Wurzel ein Knoten eines an¬ 
deren Baums ist. 
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Der Zahlenbaum im obigen Beispiel hat außerdem die Eigenschaft, daß er ge¬ 
ordnet ist. Von jedem Knoten aus finden wir links stets kleinere, rechts stets 
größere Elemente. 

Welchen Sinn haben nun diese Strukturen in der Informatik? 

Schreiben wir uns die Zahlen unseres Zahlenbaums einmal in aufsteigender 
Reihenfolge (in einer Liste) auf: 

3 10 12 17 19 20 25 26 30 32 34 50 

Wenn wir in einer Liste Daten suchen, können wir Glück haben, daß das Ge¬ 
suchte am Anfang steht, oder Pech, daß es recht weit hinten zu finden ist. Im 
ungünstigsten Fall müßten wir alle Elemente durchsuchen, wenn wir z.B. die 
Zahl 50 suchen. 

Ganz anders in unserem Baum. Wir schauen im obersten Knoten (der Wurzel) 
nach und stellen fest, daß 50 größer als dieser ist. Folglich brauchen wir nur 
noch nach rechts zu gehen. Dort finden wir die Zahl 30. 50 ist ebenfalls größer 
als dieser Knoten. Genauso ist es beim nächsten Knoten. 

Insgesamt müssen (einschließlich der 50) vier Vergleiche vorgenommen wer¬ 
den. Bei der Liste hätten wir zwölf Vergleiche zu machen. 
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Allgemein kann man sagen, daß in einer Liste mit N Elementen im ungünstig¬ 
sten Fall N Vergleiche vorzunehmen sind, in einem geordneten Baum jedoch 
nur so viele, wie die Verzweigungstiefe des Baums ist. 

Hier ist allerdings gleich anzumerken, daß es durchaus geordnete Bäume gibt, 
die sehr ungünstig gestaltet sind. 

Einen solchen Baum nennen wir entartet. Von jedem Knoten geht nur jeweils 
eine Verzweigung aus. Es handelt sich genau genommen um eine lineare Liste. 
Natürlich haben wir bezüglich des Suchens bei diesem Baum keinen Vorteil. 

Besonders effektiv sind die ausgewogenen Bäume (AVL-Bäume, benannt nach 
Adelson, Velskii und Landis). Hier heißt es: "Ein Baum ist genau dann ausge¬ 
glichen, wenn sich für jeden Knoten die Höhen der von ihm ausgehenden Teil¬ 
bäume um höchstens 1 unterscheiden." 

Wir wollen hier das Thema Bäume nicht in aller Ausführlichkeit behandeln - 
dafür reicht der Platz nicht aus. Vielmehr wollen wir uns eine Datenstruktur 
schaffen, die die Konstruktion eines Baums zuläßt, dann ein Programm ent¬ 
wickeln, das Daten in einem geordneten Baum abspeichert, und zu guter Letzt 
einen ausgewogenen Baum erzeugen. 

Weitergehende Informationen zu Bäumen sind u.a. zu finden in Wirth, "Algo¬ 
rithmen und Datenstrukturen". 

Wir können uns die Datenstrukturen wieder in einem Bild verdeutlichen: 
Wurzel- 1 


t 
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Die Datenstruktur zu einem binären Baum sieht sinnvollerweise folgender¬ 
maßen aus: 

TYPE Zeiger = A Knoten; 

Knoten = RECORD 

Links, Rechts : Zeiger; 

Inhalt : INTEGER (* Dateninhalt *) 

END; 

Was bedeutet es nun, einen Baum aufzubauen? 

Diese Tätigkeit wird einzig und allein durch Einfügen neuer Elemente be¬ 
stimmt. Nehmen wir an, wir haben einen Laufzeiger namens Lauf. Dieser soll 
den Baum beim Einfügen neuer Elemente durchlaufen. Folgende Situationen 
können sich dann ergeben, wenn Lauf auf einen Knoten (am Anfang auf die 
Wurzel) des Baums zeigt: 

1. Lauf zeigt auf NIL. In diesem Fall ist der Knoten noch unbesetzt, und es 
kann das neue Element hier eingefügt werden. Dabei ist auch dafür zu sor¬ 
gen, daß die Zeiger des neuen Elements auf NIL gesetzt werden. 

2. Lauf zeigt nicht auf NIL. In diesem Fall ist der Knoten schon besetzt. Nun 
ist zu unterscheiden, in welche Richtung der Baum weiter zu durchsuchen 
ist, um das neue Element der Größe nach einzufügen. 

a) Das neue Element ist größer als der Knoten. In diesem Fall müssen wir 
an diesem Knoten nach links gehen und in unserer Vorschrift wieder bei 
Punkt 1. anfangen. 

b) Das neue Element ist kleiner als der Knoten. In diesem Fall müssen wir 
an diesem Knoten nach links gehen und in unserer Vorschrift wieder bei 
Punkt 1. anfangen. 

Aufgabe: Erzeugen Sie nach dieser Methode einen Baum auf einem Blatt 
Papier. 

Aus der Formulierung geht hervor, daß es sich um einen rekursiven Algorith¬ 
mus handelt. Schreiben wir die Prozedur Einfuege in Pascal. Die Prozedur 
braucht zwei Parameter: die einzufügende Zahl als Wert und den Laufzeiger 
als Variable (warum?). 

(*$A-*) 

PROCEDURE Einfuege (Zahl : INTEGER; VAR Lauf : Zeiger); 

BEGIN 

IF Lauf - NIL THEN BEGIN (* hier einfuegen *) 

NEW (Lauf); 

WITH Lauf A DO BEGIN 
Inhalt Zahl; 

Links NIL; 

Rechts :« NIL 
END (* with *) 
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END (* if *) 

ELSE 

IF Zahl < Lauf A .Inhalt THEN Einfuege (Zahl, Lauf A .Links) 

ELSE 

IF Zahl > Lauf A .Inhalt THEN Einfuege (Zahl, Lauf A .Rechts) 
END; (* Einfuege *) 

(*$A+*) 


Aufgabe: Zum Verständnis der Prozedur Einfuege ist folgende Überlegung 
notwendig. Zeichnen Sie sich einen beliebigen (nicht zu großen) Baum auf. 
Lassen Sie einen Zeiger namens Wurzel auf die Wurzel des Baums zeigen. 
Wählen Sie eine beliebige Zahl N, die eingefügt werden soll. 


Nun simulieren Sie den Prozeduraufruf: Einfuege (N, Wurzel);. Bedenken Sie 
dabei, daß bei jedem Selbstaufruf der Prozedur (Rekursion) ein neuer Zeiger 
namens Lauf gebildet wird. 

Als nächstes müssen wir noch eine Prozedur Druckebaum erstellen, die uns die 
Struktur des Baums auf dem Bildschirm zeigt. Eine einfache Methode besteht 
darin, den Baum um 90 Grad gedreht darzustellen, zum Beispiel so: 



Auch diese Prozedur formulieren wir rekursiv. Wir starten mit einem Lauf¬ 
zeiger bei der Wurzel und durchsuchen den Baum. 

Wenn es noch einen weiteren Knoten gibt, d.h. der Laufzeiger nicht auf NIL 
zeigt, müssen wir den Baum erst rechts weiter durchsuchen, dann den Knoten 
drucken und schließlich links weiter durchsuchen. So erreichen wir, daß die 
Zahlen in ihrer Sortierung (mit der größten Zahl angefangen) untereinander 
gedruckt werden. Um die Knoten auch noch eingerückt zu drucken, müssen 
wir einen Wert immer dann um eins erhöhen, wenn wir noch einen weiteren 
Knoten suchen. Dieser Wert wird der Prozedur bei jedem Aufruf mitgegeben. 

Wir erhalten als vollständiges Programm: 
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PROGRAM Sorttree; 

TYPE Zeiger = A Knoten; 

Knoten = RECORD 

Links, Rechts : Zeiger; 

Inhalt : INTEGER 

END; 

VAR N : INTEGER; 

Wurzel : Zeiger; 

(*$A-*) 

PROCEDURE Druckebaum (Lauf ; Zeiger; Stelle : INTEGER); 

VAR i ; INTEGER; 

BEGIN 

IF Lauf <> NIL THEN (* noch weitere Knoten vorhanden *) 

WITH Lauf A DO BEGIN 

Druckebaum (Rechts, Stelle + 1); 

FOR i := 1 TO Stelle DO WRITE (’ ' : 7) ; 

WRITE (' I- >'); WRITELN (Inhalt : 3); 

Druckebaum (Links, Stelle + 1) 

END (* with *) 

END; (* Druckebaum *) 

PROCEDURE Einfuege (Zahl : INTEGER; VAR Lauf : Zeiger); 

BEGIN 

IF Lauf = NIL THEN BEGIN (* hier einfuegen *) 

NEW (Lauf); 

WITH Lauf A DO BEGIN 
Inhalt := Zahl; 

Links := NIL; 

Rechts := NIL 
END (* with *) 

END (* if *) 

ELSE 

IF Zahl < Lauf A .Inhalt THEN Einfuege (Zahl, Lauf A .Links) 

ELSE 

IF Zahl > Lauf A .Inhalt THEN Einfuege (Zahl, Lauf A .Rechts) 
END; (* Einfuege *) 

(*$A+*) 

BEGIN (* Hauptprogramm *) 

Wurzel :« NIL; 

WRITELN ('Unausgewogener Sortierbaum:'); 

WRITELN ('Geben Sie Zahlen ein, '); 

WRITELN ('Ende mit 0 !'); 

WRITE ('Zahl: '); 

READLN (N); 

WHILE N <> 0 DO BEGIN 
Einfuege (N, Wurzel); 

WRITE ('Zahl: '); 

READLN (N) 

END; (* while *) 

Druckebaum (Wurzel, 0) 

END. 
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Aufgabe: Testen Sie das Programm, und simulieren Sie auf einem Blatt Papier 
die Prozedur Druckebaum. 

Bei der Eingabe der Zahlenreihe 

25 10 30 8 4 70 3 28 9 8 2 0 



Aufgabe: Geben Sie die Zahlen in anderer Reihenfolge ein (insbesondere in 
sortierter Reihenfolge). 

Es ergeben sich je nach Reihenfolge der Eingabe andere Bäume, die mehr oder 
weniger gut ausgewogen sind. Das Programm achtet also nicht auf die Ausge¬ 
wogenheit des Baums, sondern lediglich auf die Sortierung der Elemente. 

Wollen wir nun einen ausgeglichenen, sortierten Baum erstellen, müssen wir 
die Prozedur Einfuege dahingehend verändern, daß nicht nur je nach Größe 
des neuen Elements nach rechts oder links erweitert wird, sondern der Baum 
umgeschichtet wird, wenn die Differenz der rechten und linken Teilbäume 
größer als eine Ebene wird. 

Dazu geben wir dem Zeiger (nach Wirth) einen zusätzlichen Dateninhalt bal 
mit, der die Werte -1 oder +1 haben kann. 

TYPE Zeiger = A Knoten; 

Knoten = RECORD 

Links, Rechts : Zeiger; 
bal : -1 .. +1; 

Inhalt : INTEGER 

END; 


VAR Lauf : Zeiger; 
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Lauf A .bal = +1 
Lauf A .bal = 0 
Lauf A bal = -1 


: Der rechte Teilbaum ist eine Ebene größer. 
: Beide Teilbäume sind gleich groß. 

: Der linke Teilbaum ist eine Ebene größer. 


Entsteht die Situation, daß wir ein Element im linken Teilbaum einfügen 
müssen, wird im ersten Fall die Unausgeglichenheit aufgehoben (Lauf A .bal = 
0), im zweiten Fall wird der Baum links eine Ebene größer (Lauf A .bal = -1), 
und im letzten Fall muß der Baum ausgeglichen werden, indem ein Element 
vom linken Teilbaum in den rechten Teilbaum übertragen wird. (Beim Ein¬ 
fügen eines Elements in den rechten Teilbaum gehen wir analog vor.) 


Da die Prozedur Einfuege rekursiv geschrieben wird, können z.B. beim 
Einfügen eines Elements in einen linken Teilbaum, bei dem ein Ausgleichen 
notwendig wird, nur zwei Situationen entstehen: 

i 

1. Fall: I I 


dieser Teil 
führt zur 
Unausge¬ 
wogenheit 

2. Fall: 




diese Teilbäume führen 
zur Unausgewogenheit 
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Diese beiden Fälle sind in der IF..THEN..ELSE-Anweisung des Ausglei¬ 
chen unterschieden. 

Wie wir wissen, muß jede Rekursion einen Rekursionsabbruch besitzen. Dies 
gewährleisten wir durch eine Übergabevariable namens Dif, die vom Typ 
BOOLEAN ist und angibt, ob die Höhe des entsprechenden Teilbaums zuge¬ 
nommen hat. Zu Beginn der Prozedur (wenn noch kein neues Element einge¬ 
fügt wurde) hat diese Variable den Wert FALSE. 

Hier nun das Programm, das einen ausgewogenen, sortierten Baum von Zah¬ 
len erstellt und ausgibt. 


PROGRAM Baltree; (* Nach Wirth *) 

TYPE Zeiger - A Knoten; 

Knoten « RECORD 

Links, Rechts : Zeiger; 
bal : -1 .. +1; 

Inhalt : INTEGER 

END; 

VAR N : INTEGER; 
b : BOOLEAN; 

Wurzel : Zeiger; 

<*$A-M 

PROCEDURE Druckebaum (Lauf : Zeiger; Stelle : INTEGER); 

VAR i : INTEGER; 

BEGIN 

IF Lauf <> NIL THEN (* noch weitere Knoten vorhanden *) 

WITH Lauf A DO BEGIN 

Druckebaum (Rechts, Stelle + 1); 

FOR i :* 1 TO Stelle DO WRITE (' *:7); 

WRITE (’ I- >'); WRITELN (Inhalt : 3); 

Druckebaum (Links, Stelle + 1) 

END (* with *) 

END; (* Druckebaum *) 

PROCEDURE Einfuege(Zahl:Integer; Var Lauf:Zeiger; Var dif:Boolean); 

VAR pl,p2:Zeiger; (* dif=FALSE *) 

BEGIN 

IF Lauf-NIL THEN BEGIN (* Zahl nicht im Baum, einfuegen *) 

NEW(Lauf); 
dif:*TRUE; 

WITH Lauf A DO BEGIN 
Inhalt:«Zahl; 

Links:=NIL; 

Rechts:=NIL; 
bal:=0 

END (* WITH *) 

END (* IF *) ELSE 
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IF Zahl<Lauf A .Inhalt THEN BEGIN 
Einfuege(Zahl,Lauf A .Links,dif); 

IF dif THEN (* linker Ast groesser *) 

CASE Lauf A .bal OF 

1: BEGIN Lauf A .bal:=0;dif:=FALSE END; 
0: Lauf A .bal :*=-l; 

-1; BEGIN (* Ausgleichen *) 
pl:=Lauf A .Links; 

IF pl A .bal—1 THEN BEGIN 
Lauf A .Links:=pl A .Rechts; 
pl A .Rechts:=Lauf; 

Lauf A .bal:=0; 

Lauf:=pl 
END (* IF *) 

ELSE BEGIN 

p2:=pl A .Rechts; 

pl A .Rechts:~p2 A .Links; 

p2 A .Links:*pl; 

Lauf A .Links:*p2 A .Rechts; 
p2 A .Rechts:=Lauf; 

IF p2 A .bal—1 THEN Lauf A .bal:-+1 
ELSE Lauf A .bal:«0; 
IF p2 A .bal=+l THEN Lauf A .bal:—1 
ELSE Lauf A .bal:»0; 

Lauf:*p2; 

END; (* ELSE *) 

Lauf A .bal: *=0; 
dif:=FALSE 
END (* CASE -1 *) 

END (* CASE *) 

END (* IF *) 

ELSE 

IF Zahl>Lauf A .Inhalt THEN BEGIN 
Einfuege(Zahl,Lauf A .Rechts,dif) ; 

IF dif THEN (* rechter Ast groesser *) 

CASE Lauf A .bal OF 

-1; BEGIN Lauf A .bal:=0;dif:»FALSE END; 

0; Lauf A .bal:=+l; 

1: BEGIN (* Ausgleichen *) 
pl:=Lauf A .Rechts; 

IF pl A .bal=+l THEN BEGIN 
Lauf A .Rechts:=pl A .Links; 
pl A .Links:=Lauf; 

Lauf A .bal:=0; 

Lauf:=pl 
END (* IF *) 

ELSE BEGIN 

p2:=pl A .Links; 

pl A .Links:=p2 A .Rechts; 

p2 A .Rechts:=pl; 

Lauf A .Rechts:=p2 A .Links; . 
p2 A .Links:=Lauf; 

IF p2 A .bal=+l THEN Lauf A .bal:=-l 
ELSE Lauf A .bal:=0; 
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IF p2 A .bal»-l THEN Lauf A .bal:=+l 
ELSE Lauf A .bal:-0; 

Lauf:=p2; 

END; (* ELSE *) 

Lauf A .bal:*0; 
dif:=FALSE 
END (* CASE +1 *) 

END (* CASE *) 

END (* IF *) 

ELSE dif:«FALSE 
END; (* Einfuege *) 

(*$A+*) 

BEGIN (* Hauptprogramm *) 

Wurzel :■ NIL; 
b :« FALSE; 

WRITELN ('Ausgewogener Sortierbaum:'); 

WRITELN ('Geben Sie Zahlen ein, '); 

WRITELN ('Ende mit 0 !'); 

WRITE ('Zahl: '); 

READLN (N) ; 

WHILE N <> 0 DO BEGIN 

Einfuege (N, Wurzel, b); 

WRITE ('Zahl: '); 

READLN (N) 

END; (* while *) 

Druckebaum (Wurzel, 0) 

END. 


Bei der Eingabe der Zahlenreihe 

25 10 30 8 4 70 3 28 9 8 2 0 


(in einer beliebigen Reihenfolge) erhalten wir die Ausgabe: 
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Selbst bei Eingabe einer sortierten Zahlenfolge (die Zahlen 1 bis 29) ergibt 
sich ein ausgewogener Baum, wie Sie aus der Abbildung auf der gegenüber¬ 
liegenden Seite ersehen können. 

Fazit: Ein Baum ist immer dann als Datenstruktur sinnvoll zu verwenden, 
wenn eine große Datenmenge zu verarbeiten ist. Insbesondere zum schnellen 
Suchen von Elementen eignen sich AVL-Bäume hervorragend, da die Zahl der 
Vergleiche erheblich verringert wird. 

Bäume sind sofort bei der Eingabe der Elemente sortiert. 
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Besonders bei der Verwaltung sogenannter Datenbanken werden Bäume ver¬ 
wendet. Dabei werden die Daten auf der Diskette nicht sortiert. Statt dessen 
wird ein sogenannter Suchbaum mit den Nummern der Elemente der Datei 
und den Suchworten aufgebaut. Mit SEEK läßt sich dann schnell auf ein Ele¬ 
ment zugreifen. 

Ist der Datensatz größer als das Fassungsvermögen einer Diskette, wird der 
gesamte Datensatz in sogenannte Teilbäume zerlegt. 

Ausblick: Es können, besonders zur weiteren Reduzierung der Vergleiche 
beim Suchen, auch Bäume mit höherem Grad als Zwei aufgebaut werden. 
Dabei gibt es dann in jedem Knoten mehr als zwei Zeiger auf nachfolgende 
Knoten. 

Hier sind z.B. die sogenannten B-Bäume zu nennen (siehe z.B. Wirth: Algo¬ 
rithmen und Datenstrukturen). 

Eine Anwendung für B-Bäume bietet das Turbo Toolbox-System Turbo 
Access (siehe Kapitel 10.2). 
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Kapitel 9 

Besonderheiten und Hilfen 


9.1 Typenkonstanten 

Eine Besonderheit von Turbo Pascal, die über den Pascal-Standard hinausgeht, 
sind die sogenannten Typenkonstanten. 

Erinnern wir uns daran, was Konstanten sind. Sie sind Bezeichner, denen im 
Deklarationsteil nach dem reservierten Wort CONST ein Dateninhalt zuge¬ 
wiesen wird, der ab dieser Stelle ein für allemal festgelegt ist. Der Datentyp 
der Konstanten ergibt sich aus der Darstellung des Werts der Konstanten. Für 
die Deklaration von Konstanten sind nur einfache Typen erlaubt. Das birgt den 
großen Nachteil, daß z.B. eine Menge oder ein Feld, das vordefiniert sein soll, 
nicht als Konstante deklariert werden kann. 

In Standard-Pascal bleibt hier nur die Lösung, eine Variable verwenden und 
diese im Programm mit den gewünschten Werten zu belegen. In Turbo Pascal 
können wir Typenkonstanten verwenden. 

Typenkonstanten sind eigentlich keine Konstanten in dem Sinne, daß sie im 
Programm nicht mehr geändert werden dürfen. Vielmehr sind es Variablen, 
die im Konstantendeklarationsteil mit einem Wert vorbelegt werden, aber im 
Programm durchaus als Variablen verwendet werden dürfen. 

Beispiel: 

CONST Seitenzahl : INTEGER = 200; 

Faktor : REAL = 3.7; 

Piep : CHAR = A G; 

Wahr : BOOLEAN = TRUE; 

Wir sehen, daß Typenkonstanten offenbar nach dem folgenden Syntaxdia¬ 
gramm gebildet werden: 


CONST y ^Qy*~ Bezeichner ► Typ -*(=)-** 
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Im Programm läßt sich nun z.B. die Typenkonstante Seitenzahl verwenden wie 
eine Variable dieses Namens, allerdings mit dem Unterschied, daß eine Varia¬ 
ble keinen oder einen zufälligen Inhalt hat, wenn das Programm startet und 
noch kein Wert zugewiesen wurde. Eine Typenkonstante dagegen hat einen fe¬ 
sten Anfangswert. Auch eine Zuweisung im Programm ist möglich: 


Seitenzahl := 210; 


Achtung: Die Bezeichner der Typenkonstanten dürfen natürlich nicht noch 
einmal vergeben werden, insbesondere dürfen sie nicht noch einmal für eine 
Variablendeklaration verwendet werden. Außerdem dürfen Typenkonstanten 
nicht in Felddeklarationen verwendet werden, da sie keine Konstanten im 
eigentichen Sinn sind. 


So ist 


CONST Max : INTEGER = 20; 

VAR Feld : ARRAY [l..Max] OF REAL; 


nicht korrekt. Hier hätte es richtig heißen müssen: 


CONST Max = 20; 


Für Typenkonstanten sind nicht nur einfache Datentypen zulässig, sondern 
auch zusammengesetzte. 

Dies ist ein sehr leistungsfähiges Werkzeug, da es häufig vorkommt, daß Men¬ 
gen, Felder oder Verbünde schon mit Anfangswerten belegt werden sollen. 

Beispiele: 

TYPE Set_of_CHAR = SET OF CHAR; 

Family = ARRAY [1..4] OF STRING[10]; 

Quadrat = ARRAY [1..3,1..3]; 

CONST Ende : STRING[4] = 'Ende'; 

JaNein : Set_of_Char = ['J',' j','N','n']; 

Familie : Family = ('Vater','Mutter','Sohn','Tochter' ); 

Magisch : Quadrat = ((4,9, 2), (3, 5, 7), (8,1, 6) ) ; 
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Typenkonstante: 


Bezeichner 




Handelt es sich beim Typ um SET, dann 



Typenkonstanten sind im eigentlichen Sinne Variablen, die im 
Deklarationsteil als Konstante (nach CONST) erklärt werden, 
denen jedoch eine Vorbelegung mit Werten gegeben wird. 



VAR i,j : INTEGER; 

ergibt die Programmsequenz 

FOR i := 1 To 3 DO BEGIN 

FOR j := 1 TO 3 DO WRITE (Magisch[i,j]:3); 
WRITELN 
END; 
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dann die Ausgabe: 

4 9 2 
3 5 7 
8 16 

also ein magisches Quadrat. 

Bei mehrdimensionalen Feldern ist darauf zu achten, daß sich die innere 
Klammer in der Feldbelegung auf den zuletzt deklarierten Index bezieht. 

Auch Verbünde können auf diese Art vorbelegt werden: 

TYPE Kurzadresse = RECORD 

Nummer : INTEGER; 

Name, Ort : STRING [20]; 

END; 

CONST Leername : Kurzadresse = (Nummer:0 ; Name:' '; Ort:' '); 

Die Zuweisung der Elemente des Verbundes geschieht in einer Klammer nach 
dem Gleichheitszeichen in der Reihenfolge der Deklaration der Elemente. Die 
Zuweisung der Werte geschieht mit einem Doppelpunkt als Trennsymbol. Die 
verschiedenen Zuweisungen werden durch Semikolon getrennt. 

9.2 Zugriff auf Speicherstellen - Externe Prozeduren - Inline 

In diesem Abschnitt wird es etwas spezieller, da wir uns hier mit der Verknüp¬ 
fung von Pascal und maschinenabhängigen Speicherstellen und Programmtei¬ 
len beschäftigen. 

Hier sollen nur einige Hinweise auf die nötigen Turbo Pascal-Befehle gegeben 
werden. Für eine weitergehende Beschäftigung mit der Maschinensprache 
wird auf die einschlägige Literatur verwiesen. Auch die speziellen Speicher¬ 
stellen eines Rechners hängen sehr vom verwendeten Modell ab, so daß dazu 
auf die Handbücher Ihres Schneider CPC verwiesen werden muß. Ausführli¬ 
chere Erläuterungen mit Beispielen, differenziert nach 8- und 16-Bit-Rech- 
nem, gibt das Handbuch zu Turbo Pascal. 

Zugriff auf Speicherstellen 

Der Zugriff auf Speicherstellen im Rechner wird von Standard-Pascal nicht 
unterstützt, da die Sprache rechnerunabhängig sein sollte. In der Praxis jedoch 
haben wir oft Anwendungen, bei denen wir auf solche Speicherstellen zugrei¬ 
fen müssen. 
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Hinweis: Der Zugriff auf rechnerspezifische Speicherstellen verhindert, daß 
das entsprechende Programm ohne Änderung auch auf jedem anderen Rech¬ 
ner lauffähig ist. Daher sollte davon nur sparsam Gebrauch gemacht werden. 

Turbo Pascal besitzt ein vordefiniertes Feld namens MEM, das nichts anderes 
darstellt als den Speicher des Rechners. Die Indizes des Feldes sind die Num¬ 
mern der Speicherplätze. 

Das Feld MEM[i] mit einem Index i (INTEGER) und einem Dateninhalt vom 
Typ BYTE stellt die Zugriffsmöglichkeit auf einen Speicherplatz dar. Mit i 
wird die Speicherstelle angegeben. 

Beispiele: 

MEM[$E000] := 128; 

MEM[28500] := 63; 

WRITELN (MEM[300]); 

MEM [ist] := MEM [ist+30]; mit ist : INTEGER 


Externe Prozeduren 

Auch externe Prozeduren und Funktionen lassen sich in ein Turbo Pascal-Pro¬ 
gramm einfügen. Eine externe Prozedur ist ein Maschinenprogramm, das von 
Turbo aus aufgerufen werden soll. 

Im Pascal-Programm hat eine externe Prozedur nur einen Prozedurkopf, der 
das reservierte Wort EXTERNAL enthält, aber keinen Prozedurrumpf. Die¬ 
ser wird von dem entsprechenden Maschinenprogramm dargestellt. 

Beispiele: 

PROCEDURE Copydisk; EXTERNAL $E000; 

PROCEDURE Grafinit (Seite:INTEGER); EXTERNAL $C000; 

PROCEDURE Gross (VAR Wort:Kurzstring); EXTERNAL $C0FF; 

(* Mit TYPE Kurzstring = STRING [80] *) 

FUNCTION Druckeran : BOOLEAN; EXTERNAL $C100; 

FUNCTION Addiere (a,b : INTEGER) : INTEGER; EXTERNAL $C200; 

Nach dem reservierten Wort EXTERNAL wird die Anfangsspeicherstelle der 
externen Prozedur angegeben. 

Achtung: Als erstes muß die externe Prozedur die Rücksprungadresse (1 Wort 
= 2 Bytes) vom Stack nehmen, um sie später zum Prozedurende wieder auf den 
Stack zu legen. 
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Etwas gewöhnungsbedürftig ist die Variablenübergabe bei externen Prozedu¬ 
ren. 

Wir wollen uns hier nur mit einfacheren Datentypen beschäftigen. Dem fort¬ 
geschrittenen Benutzer sei das Handbuch empfohlen. 

Werteparameter werden auf den Stack gelegt und können (nachdem die Rück¬ 
sprungadresse gerettet ist!) von der Prozedur von diesem heruntergenommen 
werden. 

Variablenparameter werden ebenfalls über den Stack übergeben. Jedoch wird 
hier die absolute Speicherstelle auf den Stack gelegt, an der sich die entspre¬ 
chende Variable befindet. 

Die Parameterübergabe hat für einfache Datentypen folgende Formate: 

BYTE, CHAR, BOOLEAN: 1 Wort auf dem Stack. Das höherwertige Byte ist 
Null, weil diese Datentypen nur ein Byte Speicher brauchen. 

INTEGER: 1 Wort auf dem Stack. 

STRING: 1 Wort auf dem Stack. Darin ist die Anfangsadresse des Strings 
angegeben. In dieser Adresse steht die Länge des Strings, die nachfolgenden 
Adressen enthalten die Zeichen des Strings. 

Bei Funktionen ist folgendes zu beachten: 

Eine Funktion hat stets ein Ergebnis. Dieses Ergebnis wird, wenn es von skala¬ 
rem Typ ist (BYTE, CHAR, BOOLEAN, INTEGER), über das HL-Register 
zurückgegeben. Ist das Ergebnis ein Byte lang, so steht im höherwertigen Byte 
eine Null. 

Inline 

Mit Hilfe des INLINE-Befehls lassen sich Maschinenprogrammanweisungen 
in den Programmfluß einbinden. 

INLINE ( <Codierungen> ); 

Die Codierungen der Maschinenbefehle und Daten werden durch Schrägstri¬ 
che voneinander getrennt. 

Als Beispiel folgen zwei sehr ähnliche Prozeduren, die ein Wort in Großbuch¬ 
staben bzw. Kleinbuchstaben wandeln. Dazu wird die Anfangsadresse des 
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Wortes (STRING) in das HL-Register geladen. In dieser Adresse steht die 
Länge des Wortes. Diese wird in das B-Register geladen (als Zählregister). In 
einer Schleife, in der das B-Register jeweils um eins vermindert wird, wird 
vom Wert des jeweiligen Zeichens $20 subtrahiert, sofern es sich um Klein¬ 
buchstaben handelt (mit Codierungen zwischen $61 und $7B). 

Analog funktioniert die Wandlung in Kleinbuchstaben. 

In einem Programm sieht das so aus: 


PROGRAM Inlinetest; 

TYPE Wort - STRING [20]; 
VAR w : Wort; 


PROCEDURE Wandel_klein (VAR word : Wort); 

(* Wandelt ein Wort word in Kleinbuchstaben *) 


BEGIN 


INLINE ($2A/word/ 

(* 


$46/ 

(* 


$04/ 

(* 


$05/ 

<* 

weiter 

$CA/*+20/ 

(* 


$23/ 

<* 


$7E/ 

(* 


$FE/$41/ 

(* 


$DA/*-9/ 

(* 


$FE/$5B/ 

(* 


$D2/*-14/ 

<* 


$C6/$20/ 

(* 


$77/ 

<* 


$C3/*-20 ); 

(* 



<* 

ende 


END; 


;Anfangsadresse *) 
;Zaehlregister *) 
;erhoehe B *) 
;vermindere B *) 
;B«0 dann ende *) 
;naechst.Zeichen*) 
;in Accu *) 
;vergl. mit ’A' *) 


JP 

C,weiter 

;ist kleiner 

*) 

CP 

• z* 

;vergl. mit ' Z' 

*) 

JP 

NC,weiter 

;ist groesser 

*) 

ADD 

20H 

;addiere 20H 

*) 

LD 

(HL),A 

;aendere Stelle 

*) 

JP 

weiter 

;naechst.Zeichen*) 


*) 


LD 

HL,(word) 

LD 

B,(HL) 

INC 

B 

DEC 

B 

JP 

Z,ende 

INC 

HL 

LD 

A,(HL) 

CP 

’A' 


PROCEDURE Wändel_gross (VAR 
(* Wandelt ein Wort word in 
BEGIN 
INLINE 


word : Wort); 
Grossbuchstaben *) 


($2A/word/ 

(* 


LD 

HL,(word) 

;Anfangsadresse 

*) 

$46/ 

<* 


LD 

B, (HL) 

;Zaehlregister 

*) 

$04/ 

(* 


INC 

B 

;erhoehe B 

*) 

$05/ 

(* 

weiter 

DEC 

B 

»•vermindere B 

*) 

$CA/*+20/ 

(* 


JP 

Z, ende 

;B-0 dann ende 

*) 

$23/ 

(* 


INC 

HL 

;naechst.Zeichen*) 

$7E/ 

<* 


LD 

A,(HL) 

;in Accu 

*) 

$FE/$61/ 

(* 


CP 

' a' 

;vergl. mit ’a' 

*) 

$DA/*-9/ 

(* 


JP 

C,weiter 

;ist kleiner 

*) 

$FE/$7B/ 

<* 


CP 

' z' 

;vergl. mit ’z' 

*) 

$D2/*-14/ 

(* 


JP 

NC,weiter 

;ist groesser 

*) 

$D6/$20/ 

<* 


SUB 

20H 

»•subtrahiere 20H*) 

$77/ 

<* 


LD 

(HL) , A 

»•aendere Stelle 

*) 

$C3/*-20 ); 

<* 


JP 

weiter 

,-naechst. Zeichen*) 


(* 

ende 




*) 


END; 
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BEGIN (* Hauptprogramm *) 

WRITE ('Wort: '); 

READLN (w); 

Wändel_klein (w); 

WRITELN (*Klein: ' ,w); 

Wandel_gross (w); 

WRITELN ('Gross: ’,w) 

END. 

93 Chain und Execute 

Eine beliebte Programmiertechnik für größere Programme besteht darin, von 
einem "Hauptprogramm" aus menügesteuert andere Programme aufzurufen 
und abzuarbeiten. 

Dazu bietet Turbo Pascal zwei Anweisungen: CHAIN und EXECUTE. 

CHAIN 

Mit der CHAIN-Anweisung wird ein anderes Turbo Pascal-Programm aufge- 
rufen, das mit der cHn-Option des Compilers übersetzt wurde. Im aufrufenden 
Programm wird eine Dateivariable vom Typ FILE erklärt, dann der Dateiva¬ 
riablen mit ASSIGN der Programmname des aufzurufenden Programms zu¬ 
geordnet und zuletzt mit 

CHAIN (Dateiname); 

das Programm aufgerufen. 

Auch eine Variablenübergabe ist möglich. Dazu muß das aufgerufene Pro¬ 
gramm einen zum aufrufenden Programm fast identischen Deklarationsteil 
haben. Und zwar müssen die gemeinsamen Variablen in beiden Programmen 
als erste und völlig identisch deklariert werden. Damit wird gewährleistet, daß 
das aufgerufene Programm schon mit vorbelegten Variablen vom aufrufenden 
Programm arbeitet. 

Ein Programmpaar dient als Beispiel: 

PROGRAM Aufrufendes; 

VAR Satz : STRING [80]; 
next : FILE; 

BEGIN 

WRITELN ('Geben Sie einen Satz ein: '); 

READLN (Satz); 

ASSIGN (next,'ZAEHLEN.CHN'); 

CHAIN (next) 

END. 
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Dieses Programm wird mit der Compileroption C als HAUPT.COM übersetzt. 

PROGRAM Aufgerufenes; 

VAR Satz : STRING [80]; (* hier selbe Variable *) 

Gross, Klein, i : INTEGER; 

BEGIN 

Gross := 0; 

Klein := 0; 

FOR i:=1 TO LENGTH (Satz) DO BEGIN 

IF Satz[i] IN [ ' A'..* Z•] THEN Gross:=Gross+l; 

IF Satz [i] IN [ ' a ' . . ' z ' ] THEN Klein:=Klein+l; 

END; 

WRITELN ('Der Satz hat ',Gross:3,' Grossbuchstaben'); 
WRITELN (' und ’,Klein:3,' Kleinbuchstaben') 

END. 

Dieses Programm wird mit der Compileroption H als ZAEHLEN.CHN über¬ 
setzt. 

Nun kann das Programm HAUPT.COM aufgerufen und abgearbeitet werden. 
Beide Programme "teilen" sich die Variable Satz. Sie stellt sozusagen eine glo¬ 
bale Variable dar. 

Hinweis: Ein CHN-Programm braucht wesentlich weniger Speicherplatz als 
ein COM-Programm, weil wesentliche Teile des Betriebssystems nicht mit¬ 
übersetzt wurden. Daher ist es selbst allerdings auch nicht lauffähig, sondern 
muß von einem anderen Turbo-Programm aufgerufen werden. 

EXECUTE 

Mit der EXECUTE-Anweisung können beliebige Programme, die als COM- 
File auf der Diskette zugreifbar sind, aufgerufen werden. Hier könnte man 
sich vorstellen, daß compilierte BASIC-Programme oder andere Fremdpro¬ 
gramme benutzt werden. 


EXECUTE wird genauso verwendet wie CHAIN. Zuerst muß mit ASSIGN 
einem Dateinamen eine physische Datei auf der Diskette zugewiesen werden. 
Dann wird mit 

EXECUTE (Dateiname); 

das Programm aufgerufen. 

Als Beispiel wollen wir ein Programm das Turbo-System aufrufen lassen. 
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PROGRAM Executetest; 

VAR Datei : FILE; 

BEGIN 

WRITELN ('Nach Return wird Turbo gestartet.'); 
WRITELN ('Druecken Sie RETURN...'); 

READLN; 

ASSIGN (Datei, 'TURBO.COM'); 

EXECUTE (Datei) 

END. 


Ähnlich könnten Dienstleistungsprogramme gestartet werden oder nach dem 
obigen Konzept eines "Hauptprogramms" mehrere Programme menügesteuert 
abgearbeitet werden. 


Ein "Hauptprogramm” ruft ein anderes Programm nach Benutzerwahl auf, 
das an seinem Ende wiederum das "Hauptprogramm” aufruft. 


9.4 Include 

Ein sehr nützliches Programmierwerkzeug stellt die Compileranweisung 
{$1 . . .} oder (*$i . . .*) 

dar. Mit ihr kann der Programmierer bestehende Programmtexte aus anderen 
Textdateien in den gerade zu bearbeitenden Text einfügen. Das kann aus zwei 
verschiedenen Gründen notwendig sein: 

1. Der Programmtext wird zu lang und kann daher nicht als ganzer im Rech¬ 
ner verarbeitet werden. 

2. Es existieren schon Programmteile, wie z.B. Typdeklarationen für eine 
Grafik, fertige Prozeduren aus einer Art Prozedurbibliothek usw., die in 
einem anderen Programmtext wiederverwendet werden sollen, ohne sie 
direkt in den Text aufzunehmen. 

Um einen Text in einen Programmtext zur Zeit des Übersetzens einfügen zu 
lassen, muß folgende Programmzeile benutzt werden: 

{$1 <Textdatei>} oder (*$I<Textdatei>*) 

Dann wird die so spezifizierte Textdatei vom Compiler während des Überset¬ 
zens eingefügt. 

Achtung: Die Compileranweisungen sehen zwar aus wie Kommentare, stellen 
aber keinen Kommentar dar. 
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Beispiele: 


PROGRAM Test; 

(*$I 'B:DEKLARAT.PAS'*) 

(*$I 'A:PROC1.PAS ' *) 

(*$I 'B:PROC2.PAS'*) 

BEGIN 

Eingabe; (* steht in PROC1 *) 

Rechne; (* steht in PROC2 *) 

Ausgabe (* steht in PROC1 *) 

END. 

Nach diesem Beispiel muß es die Textdatei PROC1.PAS auf der Diskette im 
Laufwerk A und die Textdateien DEKLARAT.PAS und PROC2.PAS auf der 
Diskette im Laufwerk B geben. In DEKLARAT.PAS stehen sehr wahrschein¬ 
lich Deklarationen, während in PROCl.PAS die Texte der Prozeduren Einga¬ 
be und Ausgabe und in PROC2.PAS der Text der Prozedur Rechne stehen. 


9.5 Overlays 

Dem fortgeschrittenen Programmierer kann es schon einmal passieren, daß 
sein Programm zu groß wird. Handelt es sich nur um ein zu großes Textfile, 
dann schafft die Include-Anweisung des Compilers Abhilfe (siehe Kapitel 9.4). 

Paßt aber das Codefile, d.h. das übersetzte Programm, nicht mehr in den Spei¬ 
cher, ist auf eine andere Technik zurückzugreifen: Overlays. 

Hierbei handelt es sich um eine recht raffinierte Art von Prozeduren, die sich 
gemeinsam ein und denselben Speicherplatz teilen. Dazu müssen sie allerdings 
auf der Diskette "parken" und werden nur für den Fall ihres Aufrufs von der 
Diskette in den Rechner geholt. Das kostet natürlich mehr Zeit, als speicher¬ 
residente Prozeduren zu verwenden. Daher sind einige Regeln zu beachten, die 
nach der Erklärung dieser Struktur folgen. 

Im Prozedur- oder Funktionskopf steht das reservierte Wort OVERLAY vor 
dem Wort PROCEDURE oder FUNCTION. Dann handelt es sich um eine 
entsprechende Overlay-Prozedur oder -Funktion. 

OVERLAY PROCEDURE <Titel><Parameterliste>; 

OVERLAY FUNCTION <Titel><Parameterliste>: <Ergebnistyp>; 
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Trifft der Compiler während des Übersetzens auf einen entsprechenden Pro- 
zedur-/Funktionskopf, wird der übersetzte Maschinencode nicht mehr in das 
Programm, sondern in eine Overlay-Datei übersetzt, die den Namen des Pro¬ 
gramm-Codefiles hat, jedoch mit dem Suffix .000 bis .099. Als Einschränkung 
muß erwähnt werden, daß Programme, die Overlays enthalten, nur mit den 
Compileroptionen C und H übersetzt werden dürfen. 

Beispiel: 


PROGRAM 

Overtestl; 


OVERLAY 

BEGIN 

PROCEDURE 

eins; 

END; 



OVERLAY 

BEGIN 

PROCEDURE 

zwei; 

END; 



OVERLAY 

BEGIN 

PROCEDURE 

drei; 

END; 



OVERLAY 

PROCEDURE 

vier; 


BEGIN 


END; 

BEGIN (* Hauptprogramm *) 

END. 

In diesem Beispielprogramm teilen sich die vier Prozeduren ein und denselben 
Speicherplatz im Programmcode, und zwar sinnvollerweise so, daß Platz für 
die größte der vier Prozeduren freigehalten wird. Nehmen wir an, das Pro¬ 
gramm wird als BEISPIEL.COM übersetzt; dann befinden sich alle vier Pro¬ 
zeduren in dem File BEISPIEL.OOO. 

Während des Programmlaufs wird jeweils die Prozedur von der Diskette in 
den Speicher geladen, die gerade gebraucht wird, weil sie aufgerufen wurde. 
Diese Prozedur bleibt im Speicher verfügbar, bis eine andere Overlay-Proze- 
dur dieser Overlay-Datei aufgerufen wird. 

In einer Grafik stellt sich das wie folgt dar: 
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BEISPIEL.COM BEISPIEL.000 


Hauptprogramm (Code) 

—' 

Prozedur eins 

Overlay-Bereich 


Prozedur zwei 

Hauptprogramm (Code) 
Fortsetzung 

Prozedur drei 

Prozedur vier 


Overlay-Prozeduren und -Funktionen, die nacheinander im Text auftreten, 
werden in dasselbe Overlay-File geschrieben. Liegen zwischen mehreren 
Overlay-Bereichen normale Prozeduren, werden Overlay-Files mit unter¬ 
schiedlichen Nummern angelegt (Maximum 100). 

Beispiel: 

PROGRAM Overtest2; 


OVERLAY PROCEDURE eins; 
BEGIN 

END; 

OVERLAY PROCEDURE zwei; 
BEGIN 

END; 

PROCEDURE drei; 

BEGIN 

END; 

OVERLAY PROCEDURE vier; 
BEGIN 

END; 

OVERLAY PROCEDURE fuenf; 
BEGIN 

END; 

PROCEDURE sechs; 

BEGIN 

END; 


OVERLAY PROCEDURE sieben; 

BEGIN 

END; 
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OVERLAY PROCEDURE acht; 
BEGIN 

END; 

BEGIN (* Hauptprogramm *) 
END. 


In einer Grafik stellt sich das wie folgt dar: 

BEISPIEL.COM BEISPIEL.000 



In diesem Beispiel werden also drei Dateien mit den Namen BEISPIEL.000, 
BEISPIEL.001 und BEISPIEL.002 angelegt, die den übersetzten Code der je¬ 
weiligen Prozeduren enthalten. Im Programm wird für jeden Overlay-Be- 
reich soviel Platz freigehalten, daß die jeweils größte Prozedur hineinpaßt. 

Eine Erweiterung des Overlay-Konzepts stellen die geschachtelten Overlays 
dar. Jede Overlay-Prozedur oder -Funktion kann selbst wieder wie ein Haupt¬ 
programm gestaltet werden, d.h. Overlays enthalten. Das bedeutet, daß in dem 
Programmcode der Overlay-Prozedur wieder Platz gelassen wird für einen 
weiteren Overlay-Bereich. 

Von welcher Diskette liest das Programm die Overlays? - Normalerweise 
werden sie von dem Laufwerk gelesen, das gerade in Betrieb ist (aktuelles 
Laufwerk). Wird ein anderes Laufwerk gewünscht, kann dies mit Hilfe einer 
entsprechenden Compiler-Anweisung geschehen. 
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Mit 


{$OA} oder {*$OA*) 

wird z.B. das Laufwerk A: spezifiziert als das Laufwerk, von dem ab dieser 
Stelle die Overlays gelesen werden. 

Mit 


{$00} oder (*$00*) 

wird das gerade aktuelle Laufwerk gewählt. 

In der Version 3.0 wird statt der Compiler-Anweisung eine Standardprozedur 
namens OVRDRIVE benutzt. Die Compiler-Anweisung (*$0...*) wird in 
dieser Version nicht mehr unterstützt! 

Es wird mit 

OVRDRIVE (Laufwerknummer); 

ein Laufwerk als das Laufwerk spezifiziert, von dem Overlays zu lesen sind. 
Die Nummer 0 bedeutet das aktuelle Laufwerk, 1 bedeutet A:, 2 bedeutet B: 
usw. Während des Programms kann die Laufwerksnummer mehrfach geän¬ 
dert werden. 

Wichtige Hinweise zu Overlays: 

- Im Programm-Code wird soviel Platz freigehalten, wie die größte Overlay- 
Prozedur des entsprechenden Overlay-Bereichs benötigt. 

- Zusammenhängende Overlay-Bereiche werden in derselben Overlay-Datei 
abgespeichert. Sind Overlay-Bereiche durch normale Prozeduren vonein¬ 
ander getrennt, werden verschiedene Overlay-Dateien angelegt (numeriert 
von 000 bis 099). Dadurch vergrößert sich natürlich der Platzbedarf, die 
Ladezeiten für Overlay-Prozeduren verringern sich jedoch, da mehr Over¬ 
lay-Prozeduren gleichzeitig präsent sind. 

- Overlay-Prozeduren dürfen nicht FORWARD deklariert werden. 

- Overlay-Prozeduren dürfen nicht rekursiv sein. 

- Prozeduren, die oft aufgerufen werden, sollten keine Overlay-Prozeduren 
sein (insbesondere Prozeduren, die in Schleifen aufgerufen werden), da das 
Einladen von der Diskette erheblich mehr Zeit benötigt als Zugriffe im 
Rechnerspeicher. 

- Programme, die Overlays enthalten, dürfen nicht mit der M-Option des 
Compilers übersetzt werden. 
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9.6 TLIST 

Es gibt grundsätzlich zwei verschiedene Möglichkeiten, einen Programmtext 
(und andere Texte) auf den Drucker zu bringen. 

1. Vom CP/M-System aus wird mit CTRL-P der Drucker eingeschaltet und 
mit 

TYPE <Name der Textdatei mit Suffix> 

die Textdatei gelistet. Anschließend wird mit CTRL-P der Drucker wieder 
ausgeschaltet. 

2. Man verwendet ein Ausdruckprogramm. 

Auf der Turbo Pascal-Diskette befindet sich, sozusagen als Zugabe, ein 
entsprechendes Programm namens TLIST. 

Wird TLIST aufgerufen, meldet es sich mit 

Enter name of file to list (?) for help <Return> to skip: 

Hier geben wir ein: 

Name der zu listenden Textdatei oder 
?, um Hilfen zu bekommen, oder 
<Return>, um das Programm zu verlassen. 

Haben wir einen Dateinamen eingegeben (wie BEISPIEL.PAS), werden wir 
nach Optionen gefragt. Hier können wir L, M oder LM eingeben. 

L Der Text wird mit Zeilennummern ausgegeben. 

M Reservierte Wörter werden markiert (d.h. unterstrichen). 

LM Beides 

Keine Eingabe Weder noch 

Dann wird der Text ausgedruckt. 


Druckparameter im Text 

In den Text, der ausgedruckt werden soll, können Parameter eingefügt wer¬ 
den, die das Ausdruckformat steuern. Die Anweisungen werden als Kommen¬ 
tare in den Text eingebaut, die in der ersten Spalte der Zeile anfangen müssen. 
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Hier bedeutet: 

{.PLn} oder (*.PLn*) 
{.CPn} oder (*.CPn*) 

{.PA} oder (*.PA*) 

{.POn} oder (*.POn*) 
{.HEtext) oder (*.HEtext*) 

{.FOtext} oder (*.FOtext*) 
{.L-} oder (*.L-*) 

{.L+} oder (*.L+*) 


Die Seitenlänge soll n Zeilen betragen. 

Seitenvorschub, wenn auf der aktuellen Seite 
kein Platz für n Zeilen mehr vorhanden ist. 

Seitenvorschub. 

Einstellen des linken Randes auf n Zeichen. 

Text, der in die Kopfzeile jeder Seite gedruckt 
werden soll. 

Dito für Fußzeile. 

Textlisting abschalten. 

Textlisting einschalten. 


Include-Files werden ebenfalls mit dem Programmtext gelistet, wenn die 
Include-Anweisung in der ersten Spalte der Zeile steht. 

Mit / kann der Text der Kopf- und Fußzeile mehrzeilig sein. 

Steht im Text der Kopf- oder Fußzeile ein #-Zeichen, stellt dies die Stelle dar, 
an der die Seitennummer gedruckt wird. 


9.7 Fehlerbehandlung ab Version 3.0 

Ab der Versionsnummer 3.0 des Turbo Pascal-Systems eröffnet sich dem Pro¬ 
grammierer eine völlig neue Fehlerbehandlungs- und -erkennungsmöglich- 
keit. 

Bislang wurde das Programm einfach abgebrochen und eine entsprechende 
Fehlerkennung des Systems an den Benutzer ausgegeben. Die Aussagen zum 
auftretenden Fehler sind englisch und mit Codierungen versehen, so daß ein 
unkundiger Benutzer damit nichts anfangen kann. Außerdem sind eventuell 
geöffnete Dateien beim Auftreten eines Fehlers verloren, da sie nicht geschlos¬ 
sen werden. Mit der neuen Möglichkeit kann der Programmierer dafür sor¬ 
gen, daß dem Benutzer eine Fehlermeldung in Klartext ausgegeben wird und 
daß alle Dateien abgeschlossen werden, bevor das Programm abbricht. 
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Dazu wird im Programm eine Prozedur zur Fehlerbehandlung geschrieben, 
deren Adresse einem Fehler-Pointer des Systems namens ERRORPTR überge¬ 
ben wird. Die Prozedur muß zwei Werteparameter vom Typ INTEGER besit¬ 
zen, denen vom System (in dieser Reihenfolge) die Fehlernummer und die 
Fehleradresse übergeben wird. Die Fehlernummer teilt sich auf in die Codie¬ 
rung für den Fehlertyp (höherwertiges Byte) und die Fehlernummer selbst 
(niederwertiges Byte). Beim Fehlertyp kann es sich handeln um: 

0: Benutzer-Unterbrechung mit CTRL-C 
1: Ein-/Ausgabefehler 
2: Laufzeitfehler 

Im folgenden sehen wir ein kleines Demonstrationsprogramm, das auf eine 
Fehlermeldung im Klartext verzichtet, da dazu eine aufwendige Fallunter¬ 
scheidung nötig wäre. Hier soll nur das Prinzip der Fehlererkennung deutlich 
gemacht werden. 

In dem Programm werden zwei vom Benutzer einzugebende ganze Zahlen 
durcheinander geteilt. Fehler können dadurch simuliert werden, daß beim 
Programmlauf die zweite Zahl gleich Null ist (Laufzeitfehler: Teilen durch 
Null), der Benutzer das Programm durch CTRL-C unterbricht oder ein Buch¬ 
stabe anstelle einer Zahl eingegeben wird (Ein-/Ausgabefehler). 

PROGRAM Errortest; 

VAR i,j:INTEGER; 

PROCEDURE Error (ErrNo, ErrAdr : INTEGER); 

BEGIN 

WRITELN ('Fehler!'); 

WRITELN ('Typ: ',HI(ErrNo)); 

WRITELN ('Nummer: ',LO(ErrNo)); 

WRITELN ('Adresse: ',ErrAdr); 

HALT 

END; 

BEGIN 

ERRORPTR := ADDR(Error); 

WRITE ('Zahl: '); READLN (i); 

WRITE ('geteilt durch: ’); READLN (j); 

WRITELN ('gleich ’,i/j:10:4) 

END. 

Die Namen der Prozedur sowie der beiden Weiteparameter sind gleichgültig. 
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Kapitel 10 

Turbo Toolbox 


10.1 Sortieren mit Turbo Sort 

Zusätzlich zum Turbo Pascal bietet die Herstellerfirma ein Programmpaket 
namens Turbo Toolbox an, das zwei voneinander unabhängige Programmier¬ 
hilfen umfaßt: Turbo Sort und Turbo Access. 

Bei Turbo Sort handelt es sich um Hilfsprogramme zum komfortablen Sortie¬ 
ren, während Turbo Access Routinen zur Dateiverwaltung mit sogenannten B- 
Bäumen beinhaltet. 

Turbo Sort umfaßt einige Prozeduren, die das Sortieren eines Datensatzes 
nach dem Quicksort-Algorithmus erlaubt. Der Benutzer ist weitgehend frei in 
der Wahl der zu sortierenden Daten. Auch braucht er sich nicht um die Ver¬ 
waltung des Speichers während des Sortierens zu kümmern. Maximal können 
32767 Datensätze sortiert werden. 

Paßt der ganze Datensatz in den Speicher, wird im Speicher sortiert, andern¬ 
falls dient die Diskette als virtueller Speicher. 

Turbo Sort ist eine Textdatei, die die zu verwendenden Prozeduren und Funk¬ 
tionen sowie einen Deklarationsteil enthält. Im eigenen Programm wird es vor 
dem Aufruf einer Turbo Sort-Prozedur mit 

{$1 A:SORT1.BOX} 

{$1 A:SORT2.BOX} 

in den Programmtext eingefügt. Dazu müssen die Textdateien SORT1.BOX 
und SORT1.BOX während des Übersetzens auf der Diskette im Laufwerk A 
sein. Andernfalls ist ein anderes Laufwerk anzugeben. 

Der Sortiervorgang wird durch den Aufruf einer Funktion begonnen: 

x := TurboSort (ItemSize); 

wobei x eine Variable vom Typ INTEGER ist und ItemSize ein ganzzahliger 
Wert, der die Größe der Datensätze angibt. Um ItemSize zu berechnen, benut- 
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zen wir einfach die Standardfunktion SIZEOF. Nehmen wir an, unsere Daten 
seien vom Typ 

TYPE Datentyp = RECORD 

Name, Vorname : STRING[20]; 

Alter : INTEGER 
END; 


und 


VAR Feld : ARRAY [1..1000] OF Datentyp; 

X : INTEGER; 

Dann läßt sich Turbo Sort aufrufen mit 

X : = TurboSort (SIZEOF(Datentyp)); 

Allerdings funktioniert das Sortieren so noch nicht. Zuerst müssen die Daten 
an die Sortierprozedur übergeben werden. Das geschieht mit der Prozedur 
Inp, die im Include-Text FORWARD deklariert ist, so daß eine Parameterliste 
entfällt. 

PROCEDURE Inp; 

BEGIN 

{Hier die Eingabe der Daten. Z.B.:} 

FOR x:=1 TO 1000 DO BEGIN 
WITH Feld[x] DO BEGIN 

WRITE (’Name: ’); READLN (Name); 

WRITE ('Vorname: ’); READLN (Vorname); 

WRITE ('Alter: '); READLN (Alter) 

END; 

{Ende der Eingabe eines Datenelements} 

SortRelease (Feld[x]); 

END; 

END; 

Mit dem Aufruf der Prozedur SortRelease wird ein Datenelement des dekla¬ 
rierten Datentyps an den Sortierteil übergeben. 

Natürlich hätten wir auch die Datenelemente aus einer Datei lesen können. 

Weiterhin ist anzugeben, nach welchem Kriterium sortiert werden soll. Neh¬ 
men wir an, es sei nach dem Namen zu sortieren, so erklären wir durch die 
FORWARD deklarierte Funktion Less: 

FUNCTION Less; 

VAR erst :Datentyp ABSOLUTE X; 

zweit:Datentyp ABSOLUTE Y; 

BEGIN 

Less:=erst.Name<zweit.Name 
END; 
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Die absoluten Adressen X und Y sind von Turbo Sort vordefiniert. Hätten wir 
eine Sortierung nach dem Alter gewünscht, müßte es heißen: 


Less:=erst.Alter<zweit.Alter 


Als letztes ist eine Ausgabeprozedur zu schreiben, die festlegt, wie die Ausga¬ 
be geschehen soll. 

Nehmen wir an, die sortierten Daten sollen wieder in das bestehende Feld ein¬ 
geordnet werden. Dann könnte es heißen: 

PROCEDURE OutP; 

BEGIN 
x: =1; 

REPEAT 

SortReturn(Feld[x] ; 
x:=x+l 

UNTIL SortEOS 
END; 

Auch die Prozedur OutP ist FORWARD deklariert und braucht von uns nur 
noch ohne Parameterliste geschrieben zu werden. 

Durch den Aufruf der Prozedur SortReturn werden die sortierten Datenele¬ 
mente in ihrer Reihenfolge an eine vom Benutzer zu spezifizierende Variable 
übergeben. Eine logische Funktion SortEOS erhält das Ergebnis TRUE, wenn 
alle Daten ausgeben wurden. 

Nun folgt ein komplettes Programmbeispiel, das ein Feld von Verbunden sor¬ 
tieren soll, dessen Elemente je eine zufällige Zahl und ein zufälliges Zeichen 
enthalten. Der Benutzer kann angeben, ob er nach der Zahl (Nummer) oder 
nach dem Zeichen sortiert haben möchte. Die unsortierten Daten werden in 
der 10. Spalte, die sortierten in der 20. Spalte des Bildschirms untereinander 
ausgegeben. 

PROGRAM Sortbox_Demo; 

CONST Max = 15; 

TYPE Datentyp = RECORD 

Zahl:INTEGER; 

Zeichen:CHAR; 

END; 

VAR a : ARRAY [l..Max] OF Datentyp; 
ch: CHAR; 

istZahl : BOOLEAN; 

{$1 B:SORT1.BOX} 

{$I B:SORT2.BOX} 
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PROCEDURE Inp; 

VAR i:INTEGER; 

BEGIN 

FOR i:=1 TO Max DO BEGIN 
a[i].Zahl:»RANDOM(100); 
a[i].Zeichen:=CHR (32 +RANDOM(96)); 

GOTOXY(10,i);WRITE (a[i].Zahl:5,a[i],Zeichen:3); 
SortRelease(a[i]) 

END 

END; 


PROCEDURE OutP; 

VAR i:INTEGER; 

BEGIN 
i :=1; 

REPEAT 

SortReturn (a [i]); 

GOTOXY(20,i); 

WRITELN (a[i].Zahl:5, a[i] .Zeichen:3); 
i:=i+l; 

UNTIL SortEOS; 

GOTOXY(30,1); 

WRITE ('Return druecken...'); 

READLN 

END; 


FUNCTION Less; 

VAR erst:Datentyp 
zweit:Datentyp 
BEGIN 

IF istZahl THEN 
ELSE 

END; 


ABSOLUTE X; 

ABSOLUTE Y; 

Less:»erst.Zahl<zweit.Zahl 
Less:»erst.Zeichen<zweit.Zeichen 


BEGIN {Hauptprogramm} 

CLRSCR; 

WRITE('Sortieren nach N(ummer oder Z(eichen ?'); 
REPEAT 

READ (KBD,ch) 

UNTIL ch IN ['n','N','z','Z']; 
istZahl := ch IN [ 'n', 'N' ]; 

CLRSCR; 

WRITELN (TurboSort(SIZEOF(Datentyp))) 

END. 


Als Alternative könnte das Programm dahingehend geändert werden, daß nach 
beiden Kriterien (Nummer und Zeichen) geordnet wird. Dazu wird die Sor¬ 
tierprozedur zweimal mit geänderter Sortieranweisung in der Funktion Less 
aufgerufen. 
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PROGRAM Sortbox_Demo; 

CONST Max = 20; 

TYPE Datentyp = RECORD 

Zahl:INTEGER; 
Zeichen:CHAR; 
END; 


VAR a : ARRAY [l..Max] OF Datentyp; 
ch: CHAR; 

Dummy,y : INTEGER; 
istZahl : BOOLEAN; 


{$1 B:SORT1.BOX} 
{$1 B:SORT2.BOX} 


PROCEDURE Erzeuge; 

VAR i:INTEGER; 

BEGIN 

FOR i:=1 TO Max DO BEGIN 
a[i].Zahl:=RANDOM(100); 
a[i] .Zeichen:=CHR (3 2 +RANDOM(96)); 

GOTOXY( 10 , i );WRITE (a[i].Zahl:5,a[i].Zeichen:3); 
END; 

END; 


PROCEDURE Inp; 

VAR i:INTEGER; 

BEGIN 

FOR i:=1 TO Max DO 
SortRelease(a[i]) 

END; 


PROCEDURE OutP; 

VAR i:INTEGER; 

BEGIN 

i:=l; 

REPEAT 

SortReturn(a[i] ) ; 

GOTOXY(y, i) ; 

WRITELN (a[i].Zahl:5,a[i].Zeichen:3); 
i:=i+l; 

UNTIL SortEOS; 

IF y=30 THEN BEGIN 
GOTOXY(40,1); 

WRITE ('Return druecken...'); 

READLN 

END 

END; 
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FUNCTION Less; 

VAR erst:Datentyp 
zweit:Datentyp 
BEGIN 

IF istZahl THEN 
ELSE 

END; 


ABSOLUTE X; 

ABSOLUTE Y; 

Less:=erst.Zahl<zweit.Zahl 
Less:=erst.Zeichen<zweit.Zeichen 


BEGIN {Hauptprogramm} 

CLRSCR; 

Erzeuge; 

y:=20;istZahl:=TRUE; 

Dummy := TurboSort(SIZEOF(Datentyp)); 
y:=30;istZahl:=FALSE; 

Dummy := TurboSort(SIZEOF(Datentyp)) 
END. 


Das angegebene Beispiel ist sicher keine sehr nützliche Anwendung des Turbo 
Sort-Pakets. Es soll nur die Funktion dieser Programmierhilfe erläutern. In 
der Praxis werden die Datensätze sicher etwas anders aussehen. Jedoch bleibt 
das Prinzip gleich. 

Zu Übung könnten Sie das Adreßprogramm aus Kapitel 8.1 mit Hilfe von 
Turbo Sort überarbeiten. 


Hinweis: Die Funktion TurboSort hat ein Ergebnis, das Aufschluß über even¬ 
tuelle Fehler beim Sortieren gibt. Folgende Ergebnisse sind möglich: 

0 Sortieren erfolgreich. 

3 Nicht genug Speicher vorhanden. 

8 Unzulässige Länge des Datensatzes (muß größer 1 sein). 

9 Mehr als 32767 Datensätze. 

10 Fehler beim Sortieren (Diskette defekt oder voll). 

11 Fehler beim Lesen von der Diskette. 

13 Fehler beim Erzeugen einer Datei. 


10.2 B-Dateien mit Turbo Access 

Der zweite große Bereich, den die Turbo Toolbox abdeckt, ist eine effektive 
Dateiverwaltung. Dazu verwendet man das Turbo Access-System. Es beinhal¬ 
tet mehrere Textdateien, die als Include-Files in das eigene Programm einge¬ 
baut werden und dann eine Reihe sehr effektiver Prozeduren und Funktionen 
zur Verfügung stellen. 

ACCESS1.BOX und ACCESS1.BOX enthalten alle Prozeduren zur Verwal¬ 
tung der eigentlichen Datei sowie grundlegende Deklarationen. 
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GETKEY.BOX enthält Suchroutinen für eine Indexdatei. 

ADDKEY.BOX enthält Routinen zum Einfügen von Schlüsseln in die Index¬ 
datei. 

DELKEY.BOX enthält Routinen zum Löschen von Schlüsseln in der Index¬ 
datei. 

Das Softwarepaket unterstützt nicht nur die Verwaltung und Pflege einer Da¬ 
tendatei, sondern zudem noch den Aufbau und die Verwaltung von Indexda¬ 
teien. Das bedeutet, daß der Benutzer in mehreren Indexdateien Schlüsselwör¬ 
ter verwalten kann, die zum Suchen in der Datei verwendet werden. So kann 
z.B. mit einem Datensatz Adresse eine Datendatei erstellt und verwaltet wer¬ 
den, und zum Suchen nach bestimmten Kriterien werden Indexdateien einge¬ 
richtet, in denen für jeden Dateneintrag z.B. Name, Postleitzahl, Ort und Kun¬ 
dennummer verwaltet werden. So kann dem Benutzer des endgültigen Pro¬ 
gramms gestattet werden, nach diesen Kriterien im Datensatz zu suchen, ohne 
daß der ganze Datensatz von Anfang bis Ende durchsucht werden muß. Viel¬ 
mehr wird nur in der Indexdatei gesucht, die die Form eines B-Baumes hat, 
und nach dem erfolgreichen Suchen die Nummer des gesuchten Datensatzes 
ausgegeben, der nun aus der Datei gelesen werden kann. 

Eine kurze Darstellung soll verdeutlichen, welche Vorteile B-Bäume in die¬ 
sem Zusammenhang haben. Im Gegensatz zu Binärbäumen haben die Elemente 
eines solchen Baums mehr als zwei Verzweigungen. Die Knoten eines solchen 
Baums heißen Seiten. Sie beinhalten Elemente (namens Schlüssel) und Ver¬ 
knüpfungen zu weiteren Elementen. 

Ein Baum der n. Ordnung hat dann folgende Eigenschaften: 

1. Jede Seite enthält höchstens 2 * n Elemente (Schlüssel). 

2. Jede Seite, außer der Wurzelseite, enthält mindestens n Elemente. 

3. Jede Seite ist entweder eine Blattseite, d.h. hat keinen Nachfolger, oder sie 
hat m + 1 Nachfolger, wobei m die Zahl ihrer Schlüssel ist. 

4. Alle Blattseiten liegen auf der gleichen Stufe. 

(Nach Wirth: Algorithmen und Datenstrukturen) 

Auch in einem B-Baum sind die Elemente durch die Einfügevorschrift bedingt 
geordnet. Weiterhin besteht der Vorteil, daß in einem B-Baum durch die o.g. 
Vorschriften die Ebenen des Baums stets ausgeglichen sind. Wird eine Seite 
aufgefüllt, muß sie geteilt werden, wenn sie mehr als 2 * n Elemente erhält. 
Andererseits müssen zwei Seiten wieder zu einer zusammengefügt werden, 
wenn die Anzahl der Elemente durch Löschen n unterschreitet. Durch die grö¬ 
ßere Anzahl der Verzweigungen vermindert sich der durchschnittliche Such- 



236 


Schneider CPC - Arbeiten mit Turbo Pascal 


weg im Baum. Allerdings vergrößert sich bei zunehmender Ordnung n der 
V erwaltungsaufwand. 


Ein Beispiel für einen B-Baum 2. Ordnung, dessen Schlüssel ganze Zahlen 
sind, ist: 



Auf die Entwicklung und Erläuterung der Einfüge- und Löschoperationen soll 
hier verzichtet werden, da sie für die Benutzer von Turbo Access unerheblich 
sind. 

Vielmehr sollte sich der Benutzer nur im klaren darüber sein, was in welcher 
Datei verwaltet wird. Die Datendatei ist eine sequentielle Datei von Record. 

Die Schlüsseldateien (Indexdateien) dagegen werden als B-Bäume verwaltet, 
deren Seiten als Einträge 

1. ein Schlüsselwort, 

2. einen Datenquerverweis (d.h. die Datenrecord-Nummer) und 

3. einen Schlüsselquerverweis (d.h. die Verknüpfung zur nächsten Seite) 

beinhaltet. Wird eine Suchoperation nach einem Schlüssel in einer solchen Da¬ 
tei ausgeführt, geben die entsprechenden Prozeduren die Nummer des gesuch¬ 
ten Records der Datendatei zurück. Die inhaltliche Verwaltung der Datei und 
der Schlüsseldatei obliegt natürlich weiterhin dem Programmierer. Das Turbo 
Access-System stellt nur die Prozeduren zur Verwaltung zur Verfügung. 

Das Turbo Access-System wird folgendermaßen benutzt: 

PROGRAM 

<eigene Deklarationen 

Deklaration der Konstanten für Turbo Access> 


(*$I ACCESS1.BOX*) 
(*$I ACCESS2.BOX*) 
(*$I GETKEY.BOX*) 
(*$I ADDKEY.BOX*) 
(*$I DELKEY.BOX*) 
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<wobei die ...KEY.BOX-Teile weggelassen werden können, 
wenn keine Indexdatei verwendet wird> 

<eigene Unterprogramme> 

<Hauptprogramm> 

Folgende Konstanten müssen für Turbo Access deklariert werden: 

MaxDataRecSize Die maximale Größe der zu verwaltenden Records der Da¬ 
tei in Bytes. 

Die maximale Länge der verwendeten Schlüssel in Bytes 
(1..255). 

Maximale Anzahl der Schlüsseleinträge pro Seite (norma¬ 
lerweise zwischen 16 und 32). 

Ordnung des B-Baums. Hier muß die Hälfte von PageSize 
deklariert werden. 

Größe des Seitenpuffers. Anzahl der Seiten, die gleichzeitig 
im Speicher sein können. Ein großer Wert bewirkt, daß das 
Suchen sehr schnell ist, der Speicherplatzbedarf jedoch zu¬ 
nimmt. 

Die maximale Höhe des B-Baums. Berechnet sich aus Max- 
Height = Log(E)/Log(PageSize*0.5), wobei E die Anzahl 
der Schlüssel einer Indexdatei ist. 

Sind diese Konstanten deklariert und die entsprechenden Include-Anweisun- 
gen in das Programm eingefügt, können die im folgenden beschriebenen Pro¬ 
zeduren und Funktionen verwendet werden. Dazu sind die Datentypen 

IndexFile und 
DataFile 

zur Deklaration der entsprechenden Dateien zu verwenden, und es existiert 
eine Boolesche Variable 

OK : BOOLEAN 

die von den meisten Prozeduren und Funktionen verändert wird, um anzuzei¬ 
gen, ob die Operation erfolgreich ausgeführt wurde. 


MaxKeyLen 

PageSize 

Order 

PageStackSize 

MaxHeight 


Prozeduren zur Datenverwaltung 


PROCEDURE MakeFile (VAR DatF:DataFile; 

FileN:STRING[14]; 
RecLen:INTEGER); 
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erstellt eine Datendatei DatF mit Namen FileN und Records der Länge RecLen 
in Bytes. Ist OK FALSE, findet sich nicht mehr genug Platz auf der Diskette. 

PROCEDURE OpenFile (VAR DatF:DataFile; 

FileN:STRING[14]; 

RecLen:INTEGER); 

eröffnet eine bestehende Datendatei (wie MakeFile). Ist OK FALSE, läßt sich 
die Datei nicht eröffnen. 

PROCEDURE CloseFile (VAR DatF:DataFile); 

schließt eine geöffnete Datendatei DatF. 

PROCEDURE AddRec (VAR DatF:DatFile; 

VAR DataRef:INTEGER; 

VAR Buffer); 

fügt einen Datensatz, der der untypisierten Variablen Buffer übergeben wird, 
in die Datei DatF an der Stelle DataRef (Recordnummer) ein. Die neue Re¬ 
cordnummer steht durch den Variablenparameter DataRef zur Verfügung. 

PROCEDURE DeleteRec (VAR DatF:DatFile; 

DataRef:INTEGER); 

löscht einen Datensatz in der Datei DatF mit der Recordnummer DataRef. 

PROCEDURE GetRec (VAR DatF:DatFile; 

DataRef:INTEGER; 

VAR Buffer); 

liest einen Datensatz aus der Datei DatF mit der angegebenen Recordnummer 
DataRef in die Puffervariable Buffer. 

PROCEDURE PutRec (VAR DatF:DatFile; 

DataRef:INTEGER; 

VAR Buffer); 

schreibt einen Datensatz, der mit der Variablen Buffer übergeben wird, in die 
Datei DatF an der Stelle der Recordnummer DataRef. 

FUNCTION FileLen (VAR DatF:DataFile):INTEGER; 

gibt die Anzahl der Datensätze der Datei wieder (mit den gelöschten Daten¬ 
sätzen). 

FUNCTION UsedRecs (VAR DatF:DataFile):INTEGER; 
gibt die Anzahl der benutzten Datensätze der Datei wieder. 
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Prozeduren zur Verwaltung von Schlüsseln 

PROCEDURE Initlndex; 

wird zum Programmbeginn aufgerufen. 

PROCEDURE Makeindex (VAR IndexF:IndexFile; 

FileN:STRING [14]; 

KeyLen,Status:INTEGER); 

erstellt eine Indexdatei IndexF mit dem Namen FileN, die Schlüsselwörter der 
Länge KeyLen enthält. Schlüsselwörter sind vom Typ STRING. Der Statuspa¬ 
rameter kann den Wert 0 oder 1 haben, wobei 0 bedeutet, daß keine doppelten 
Schlüsselwörter erlaubt sind, und 1, daß doppelte Schlüsselwörter benutzt 
werden können. OK ist FALSE, wenn nicht genügend Platz auf der Diskette 
zur Verfügung steht. 

PROCEDURE Openlndex (VAR IndexF:IndexFile; 

FileN:STRING[14]; 

KeyLen,Status:INTEGER); 

eröffnet eine bestehende Indexdatei. Sonst wie Makeindex. OK ist FALSE, 
wenn die Datei nicht existiert. 

PROCEDURE Closelndex (VAR IndexF:IndexFile); 

schließt eine Indexdatei. 


PROCEDURE AddKey (VAR IndexF:IndexFile; 

VAR DataRef:INTEGER; 

VAR Key); 

fügt einen Schlüssel Key in die Indexdatei IndexF, der mit dem Datenelement 
der Nummer DataRef verbunden ist. OK ist FALSE, wenn der Schlüssel schon 
existiert (nur bei Status 0). 

PROCEDURE DelKey (VAR IndexF:IndexFile; 

VAR DataRef:INTEGER; 

VAR Key); 

löscht einen Schlüssel. Sonst wie AddKey. OK ist FALSE, wenn die Datei nicht 
existiert. 

PROCEDURE FindKey (VAR IndexF:IndexFile; 

VAR DataRef:INTEGER; 

VAR Key); 
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sucht genau den angegebenen Schlüssel Key in der Indexdatei IndexF und gibt 
nach erfolgreicher Suche die Recordnummer des entsprechenden Datenele¬ 
ments über DataRef zurück. OK ist FALSE, wenn der Schlüssel nicht gefun¬ 
den wurde. 


PROCEDURE SearchKey (VAR IndexF:IndexFile; 

VAR DataRef:INTEGER; 

VAR Key); 

wie FindKey. Allerdings braucht der angegebene Schlüssel nur mit dem An¬ 
fang des gesuchten Schlüssels übereinzustimmen. 


PROCEDURE NextKey (VAR 
VAR 
VAR 


IndexF:IndexFile; 
DataRef:INTEGER; 
Key) ; 


sucht den nächsten Schlüssel. 


PROCEDURE PrevKey (VAR 
VAR 
VAR 


IndexF:IndexFile; 
DataRef:INTEGER; 
Key) ; 


sucht den vorhergehenden Schlüssel. 


PROCEDURE ClearKey (VAR IndexF:IndexFile); 

setzt den Indexzeiger (abhängig von einem folgenden NextKey oder PrevKey) 
auf den ersten oder letzten Eintrag der Indexdatei. 

Hinweis: Die Veränderung von Datenelementen bewirkt keine automatische 
Änderung von Indexeinträgen und umgekehrt. Daher muß der Programmie¬ 
rer selbst dafür sorgen, daß z.B. bei der Änderung eines Datenelements die zu¬ 
gehörigen Schlüsseleinträge zuvor gelöscht und dann mit den neuen Inhalten 
wieder zugefügt werden. 

Im folgenden ein Programmbeispiel zur Verdeutlichung der o.g. Prozeduren 
und Funktionen. Es soll eine Mitgliederdatei erzeugt und verwaltet werden. 
Teile des Programms sind an das Adreßprogramm aus Kapitel 8.1 angelehnt. 
Erweiterungen und Verfeinerungen sollten vom Leser als Übung vorgenom¬ 
men werden. Die Datenelemente bestehen aus einer Mitgliedsnummer (als 
STRING, der Einfachheit halber, weil Schlüssel auch STRINGs sind) und 
einer Adresse. Zwei Suchkriterien sollen zugelassen sein: Mitgliedsnummer 
(genaue Übereinstimmung und keine doppelten) und Name (Anfangsüberein¬ 
stimmung und doppelte zugelassen). 

Die Elemente der Datei können verändert (mit Neueingabe), gelöscht und nach 
den o.g. Kriterien gesucht werden. 
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Das Programm sieht nun so aus: 


PROGRAM Mitgliederdatei; 

CONST Reclaenge= 80; 

J : SET OF CHAR = ['J','j']; 

N ; SET OF CHAR = [ , N , ,'n*]; 

JN: SET OF CHAR = ['J’,'j*,'N','n']; 


MaxDataRecSize 

MaxKeyLen 

PageSize 

Order 

PageStackSize 

MaxHeight 


Reclaenge; 

22 ; 

16; 

8 ; 

5; 


5 


{$1 B:ACCESS1.BOX} 
{$1 B:ACCESS2.BOX} 
{$1 B:GETKEY.BOX} 
{$1 B:ADDKEY.BOX} 

{$I B:DELKEY.BOX} 


TYPE Setofchar = SET OF CHAR; 

Kurzstring = STRING [20]; 

Adresse = RECORD 

Nummer: Kurzstring; 

Name, Vorname, Ort : Kurzstring; 
END; { Adresse } 

Filetyp = FILE OF Adresse; 


VAR Person : Adresse; 

DatF : DataFile; 

NumF,NamF : IndexFile; 
Num : Kurzstring; 

Nam : Kurzstring; 

Dateiname : STRING [15]; 
ch : CHAR; 

Anzahl, Nr : INTEGER; 


FUNCTION Lieszeichen (m : Setofchar) : CHAR; 

VAR ch : CHAR; 

OK : BOOLEAN; 

BEGIN 

REPEAT 

READ (KBD, ch); { Lies Zeichen ohne Echo } 

IF EOLN (KBD) THEN ch:=CHR(13); { <Return>-Taste } 

OK :** ch IN m; 

IF NOT OK THEN WRITE (CHR(7)) { Bell } 

ELSE IF ch IN [' '..CHR(126)] 

{ druckbare Zeichen } 
THEN WRITE (ch) 

UNTIL OK; 

Lieszeichen := ch 
END; { von Lieszeichen } 
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PROCEDURE Lesen ( VAR Satz : Adresse); 
PROCEDURE Maske; 

BEGIN { von Maske } 

GOTOXY(1,2); WRITE ('Nummer: '); 

GOTOXY(1,4); WRITE ('Name: ’); 

GOTOXY(1,6); WRITE ('Vorname: '); 

GOTOXY(1,8); WRITE ('Wohnort: '); 

END; { von Maske } 

PROCEDURE Fuellen; 

BEGIN { von Fuellen } 

WITH Satz DO BEGIN 

GOTOXY(13,2); WRITE (Nummer); 

GOTOXY(13,4); WRITE (Name); 

GOTOXY(13,6); WRITE (Vorname); 

GOTOXY(13,8); WRITE (Ort); 

END { von with } 

END; { von Fuellen } 

BEGIN { von Lesen } 

CLRSCR; 

GetRec (DatF,Nr,Satz); 

Maske; 

Fuellen 

END; { von Lesen } 

PROCEDURE Schreibe ( Satz : Adresse); 

BEGIN 

PutRec (DatF,Nr,Satz); 

DeleteKey (NumF,Nr,Num); 

AddKey (NumF,Nr,Satz.Nummer); 

Deletekey (NamF,Nr,Nam); 

AddKey (NamF,Nr,Satz.Name); 

END; { von Schreiben } 

PROCEDURE Suchen; 

BEGIN 

CLRSCR; 

WRITELN ('Suchen eines Datensatzes nach '); 
WRITELN; 

WRITELN ('M(itgliedsnummer'); 

WRITELN ('N(ame'); 

ch:=LiesZeichen(['m','M',’n','N']); 

CASE ch OF 

’M','m' : BEGIN 

WRITE ('Gesuchte Nummer:'); 
READLN (Num); 

FindKey (NumF,Nr,Num); 

END; 

'N','n' : BEGIN 

WRITE ('Gesuchter Name: '); 
READLN (Nam); 

SearchKey (NamF,Nr,Nam); 

END; 


END; 
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REPEAT 

IF OK THEN BEGIN 
Lesen (Person); 

Nam:=Person.Name; 

Num:=Person.Nummer 
END 

ELSE WRITELN (^G^G'G'Element existiert nicht!'); 
GOTOXY (1,20); 

WRITELN ('W(eiter - N(aechster, V(orheriger Name'); 
ch:=LiesZeichen (['W',*w','N','n','V','v']); 

CASE ch OF 

'N','n' : NextKey (NamF,Nr,Nam); 

’V^'v' : PrevKey (NamF, Nr, Nam) 

END; 

UNTIL ch IN [’W*,’w*] 

END; 


PROCEDURE Veraendern; 

VAR Frage : CHAR; 

PROCEDURE Aendern ; 

VAR Satz : Adresse; 

Hilf : Kurzstring; 

PROCEDURE Tasten (x,y : INTEGER; VAR Wort : Kurzstring); 
VAR Wort2 : Kurzstring; 

BEGIN { von Tasten } 

GOTOXY (x,y); READLN (Wort2); 

IF Wort2 <> '' THEN Wort := Wort2; 

{ nur Aenderung, wenn nicht <Return>} 

GOTOXY (x,y); WRITE (Wort) 

END; { von Tasten } 


BEGIN { von Aendern } 

Lesen (Satz); 

WITH Satz DO BEGIN 

Tasten (13,2,Nummer); 

Tasten (13,4,Name); Tasten (13,6,Vorname); 
Tasten (13,8,Ort); 

END; { von with } 

Schreibe (Satz); 

END; { von Aendern } 


BEGIN { von Veraendern } 

REPEAT 

CLRSCR; 

WRITELN; WRITELN; 

WRITELN (* N (eueingabe*); 

WRITELN (* U (maendern *); 

WRITELN (’ M (enue ’); 

WRITELN; WRITELN ('Bitte waehlen Sie*); 

Frage := Lieszeichen ([’N',’n','U','u',’M*,'m']); 
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IF Frage IN ['N’,'n'] THEN BEGIN 
WITH Person DO BEGIN 
Nummer:=' *; 

Name:=' '; 

Vorname:=' '; 

Ort:= 1 ’ 

END; 

AddRec (DatF,Nr,Person); 

AddKey (NumF,Nr,Person.Nummer); 
AddKey (NamF,Nr,Person.Name); 
Aendern 

END; { von if } 

IF Frage IN ['U'/u'] THEN BEGIN 
WRITELN; 

Suchen; 

IF OK THEN Aendern 
END { von if } 

UNTIL Frage IN ['M',’m'] 

END; { von Veraendern } 


PROCEDURE Loeschen; 

BEGIN 

Suchen; 

IF OK THEN BEGIN 

WRITELN ('Soll das Element geloescht werden (J/N)?'); 
REPEAT 

READ (KBD,ch) 

UNTIL ch IN JN; 

IF ch IN J THEN BEGIN 
DeleteRec (DatF,Nr); 

DeleteKey (NumF,Nr,Num); 

DeleteKey (NamF,Nr,Nam); 

END; 

END; 

END; 


PROCEDURE Menu; 

VAR Frage : CHAR; 

BEGIN 

REPEAT 

CLRSCR; 

Anzahl:=UsedRecs (DatF); 

WRITELN; WRITELN; 

('Die Datei hat ', Anzahl:3) 
('tatsaechliche Elemente.’); 
WRITELN ('Waehlen Sie:'); 
WRITELN; 

(' V (eraendern von Daten 
(' L (oeschen von Daten 
(' S (uchen nach Kriterien 


WRITELN 

WRITELN 

WRITELN; 

WRITELN; 

WRITELN 

WRITELN 

WRITELN 

WRITELN; 

WRITELN 


Z (um Schluss 


Frage:=LiesZeichen(['V','v' 


’ s ’ 


' z ’ ] ) ; 
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CASE Frage OF 

'V*,'v' : Veraendern; 

'L',* 1' : Loeschen; 

* S *,* s' : Suchen 

END { case } 

UNTIL Frage IN [ , Z', , z'] 
END; { von Menu } 


PROCEDURE Start; 

LABEL Exitl; 

VAR Satz : Adresse; 


PROCEDURE Neu; 

LABEL Exit2; 

BEGIN { von Neu } 

MakeFile (DatF,Dateiname*'.DAT',SIZEOF(Person)); 

IF NOT OK THEN BEGIN 

WRITELN ('Kein Platz auf der Diskette!'); 

GOTO Exit2; 

END 

ELSE BEGIN 

Makeindex (NumF,Dateiname*'.NUM',SIZEOF(Num),0); 
Makeindex (NamF,Dateiname*'.NAM',SIZEOF(Nam),1); 
END; 

Exit2: 

END; { von Neu } 


BEGIN { von Start } 

WRITELN; WRITELN; 

WRITE ('Eingabe des Dateinamens: '); 

READLN (Dateiname); 

OpenFile (DatF,Dateiname**.DAT' , SIZEOF(Person)); 

IF NOT OK THEN BEGIN 

WRITELN ('Datei existiert nicht! '); 

WRITE ('Wollen Sie eine neue Datei (J/N) ?'); 
ch := Lieszeichen (JN); 

IF ch IN J THEN BEGIN 
Neu; 

IF NOT OK THEN GOTO Exitl 
END ELSE GOTO Exitl 
END { von if } 

ELSE BEGIN 

Openlndex (NumF,Dateinamet'.NUM' , SIZEOF(Num),0); 
OpenIndex (NamF,Dateiname+'.NAM' , SIZEOF(Nam),1); 
END; 

Menu; 

CloseFile (DatF); 

Closelndex (NumF); 

Closelndex (NamF); 

Exitl: 

END; { von Start } 
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BEGIN { Hauptprogramm } 

Nr:=0; 

CLRSCR; 

Initlndex; 

Start; 

CLRSCR; 

WRITELN ('Das war's...') 
END. 


Wird als Dateiname z.B. DATEI angegeben, werden Dateien mit den Namen 
DATEI.DAT, DATEI.NUM und DATEI.NAM angelegt. 

Als Übung sollten Sie das Programm dahingehend erweitern und ändern, daß 
Namen als Schlüsselwörter nur in Großbuchstaben gespeichert werden und 
vor dem Suchen das Suchwort entsprechend geändert wird. Außerdem sollte 
eine Ausgabeprozedur für die ganze Datei eingefügt werden, die dafür sorgt, 
daß die Datei in alphabetischer Reihenfolge der Namen ausgegeben wird. Eine 
Verbesserung liegt sicher auch darin, nicht nur nach Nachnamen, sondern 
nach diesen in Verbindung mit dem Vornamen zu suchen. 
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Grafiken und Töne auf dem Schneider CPC 


In diesem Kapitel soll ein kleiner Überblick über die Möglichkeiten der Gra¬ 
fik- und der Tonerzeugung mit dem Schneider CPC gegeben werden. Es soll 
und kann nicht das entsprechende Kapitel im Handbuch ersetzen, das zu lesen 
dringend empfohlen wird. Hier soll nur ein Überblick über die wichtigsten 
Möglichkeiten gegeben werden. 

Die Grafikbefehle können nur verwendet werden, wenn entsprechende In- 
clude-Dateien zu Programmbeginn geladen werden. Hier ist zu unterscheiden 
zwischen dem CPC 464/664 und dem CPC 6128. 

Auf dem Schneider CPC 464/664 müssen die Dateien mit 

{$1 GRAFIKl.INC} 

{$1 GRAFIK2.INC} 

als Include-Dateien geladen werden. Da dieser Rechner unter Turbo Pascal 
nur noch recht wenig Platz zur Verfügung stellt, muß außerdem auf die Feh¬ 
lermeldungen verzichtet, der Programmtext selber evtl, als Include-Datei an¬ 
gelegt und mit der Com-Option übersetzt werden. 

Im Gegensatz dazu braucht beim Schneider CPC 6128 nur eine Include-Datei, 
nämlich 

{$1 GRAFIK3.INC} 
aufgerufen zu werden. 

Mit den o.g. Include-Dateien kann unser Rechner nun einige Grafikbefehle des 
sogenannten Basispakets einladen. 

Will man die zusätzlichen Befehle der Turtlegrafik verwenden, muß man beim 
Schneider CPC 464/664 

{$1 TURTLEl.INC} 

{$1 TURTLE2.INC} 


als Include-Dateien benutzen. 
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Beim Schneider CPC 6128 wird dagegen 

{$1 TURTLE3.INC} 

eingefügt. 

Alle o.g. Dateien sind auf der Systemdiskette (Rückseite) zu finden. Auch sie 
sollten auf die Arbeitsdiskette als Sicherheitskopie kopiert werden. 

11.1 Basis-Grafikbefehle 

(mit den Include-Dateien GRAFIK 1.INC und GRAFIK2.INC bzw. GRAFIK3. INC) 

1. Bildschirm und Fenster 

Mit einigen Befehlen kann die Darstellung auf dem Bildschirm verändert 
werden. 

Mode (Modus); 

setzt den Bildschirmmodus. Der Modus kann folgende Werte annehmen: 

0 = 20 Zeichen/Zeile mit max. 16 Farben 

1 = 40 Zeichen/Zeile mit max. 4 Farben 

2 = 80 Zeichen/Zeile mit max. 2 Farben 

Beim Aufruf von Mode wird gleichzeitig der Bildschirm gelöscht. 

GrafMode (Farbstift); 

Setzt den Grafikfarbstiftmodus. Damit wird angegeben, in welcher Weise ein 
Bildschirmpunkt durch Grafikbefehle überschrieben wird. Der Farbstiftmo¬ 
dus kann folgende Werte annehmen: 

0 = Normal 

1 = Überschreiben mit XOR 

2 = Überschreiben mit AND 

3 = Überschreiben mit OR 

GetMode; 

ist eine Funktion mit Ergebnistyp INTEGER. Das Ergebnis gibt den einge¬ 
stellten Bildschirmmodus (s.o.) an. 

GetGrafMode; 

ist eine Funktion mit Ergebnistyp INTEGER. Das Ergebnis gibt den ein¬ 
gestellten Grafikmodus (s.o.) an. 
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Hinweis: Beim absoluten Grafikkoordinatensystem (x,y) liegt der Ursprung 
des Koordinatensystems unten links (0,0); die obere rechte Ecke hat die Koor¬ 
dinate (639,399). 

Die unten verwendete Farbe ist ein Parameter vom Typ BYTE, der die Farbe 
aus der Farbtabelle des Schneider CPC repräsentiert. Auch die verwendeten 
Parameter für Farbstife sind vom Typ BYTE. 

GrafWindow (x_unten, y__unten, x_oben, y_oben) ; 

setzt ein Grafikfenster mit den Koordinaten für die untere linke Ecke (x_un- 
ten,y_unten) und die obere rechte Ecke (x_oben,y_oben). Überschreitet die 
Grafik die Fensterbegrenzung, wird die Grafikoperation außerhalb des Fen¬ 
sters ignoriert. 

CLG (Farbe); 

löscht das aktuelle Grafikfenster und füllt es mit der angegebenen Farbe. 
Border (Farbel,Farbe2); 

umrandet das aktuelle Fenster mit einer Farbe. Sind die Farbparameter ver¬ 
schieden, blinkt der Rahmen. 


Tag; 

sorgt dafür, daß alle Textausgaben auf dem Bildschirm im Grafikmodus erfol¬ 
gen, d.h. WRITE hat dieselbe Funktion wie GrafOut (s.u.). 

TagOff; 

schaltet Tag wieder aus, so daß die Textausgaben wieder im Textmodus erfol¬ 
gen. 


Paper (Farbe); 

setzt eine neue Hintergrundfarbe für den Texthintergrund. 

GrafPaper (Farbe); 

setzt eine neue Hintergrundfarbe für den Grafikhintergrund. 

Ink (Farbstift,Farbel,Farbe2); 

ordnet einem Farbstift die Farben Farbel und Farbe2 zu, wobei unterschiedli¬ 
che Farben zu einem Blinkeffekt führen. Dazu stellt man sich zweckmäßiger¬ 
weise den Farbstift wie einen Füllfederhalter vor, den man mit einer farbigen 
Tinte füllen kann. 
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2. Zeichnen und Bewegen 

Origin (x,y); 

setzt einen neuen Ursprung (0,0) für das Koordinatensystem. Dabei müssen x 
und y natürlich im absoluten Koordinatensystem (0<x<639 und 0<y<399) de¬ 
finiert werden. Viele der folgenden Grafikbefehle beziehen sich auf den Ur¬ 
sprung. 

GrafPen (Farbstift); 

wählt einen Farbstift für das Zeichnen im Grafikmodus aus. 

Draw (x,y); 

zeichnet mit dem aktuellen Farbstift eine gerade Linie von der momentanen 
Cursor-Koordinate zu der angegebenen Koordinate (x,y). Dabei beziehen sich 
die Werte für x und y auf den Ursprung. 

DrawR (dx,dy); 

zeichnet mit dem aktuellen Farbstift eine gerade Linie von der momentanen 
Cursor-Koordinate aus. Dabei wird zum momentanen x-Wert dx und zum mo¬ 
mentanen y-Wert dy addiert. 

GrafMove (x,y); 

bewegt den Grafikcursor von der momentanen Cursor-Koordinate zu der an¬ 
gegebenen Koordinate (x,y). Dabei beziehen sich die Werte für x und y auf 
den Ursprung. 


GrafMoveR (dx,dy); 

bewegt den Grafikcursor von der momentanen Cursor-Koordinate aus. Dabei 
wird zum momentanen x-Wert dx und zum momentanen y-Wert dy addiert. 

Plot (x,y); 

setzt mit der Farbe des aktuellen Farbstifts an der Koordinate (x,y) einen 
Punkt, wobei x und y relativ zum Ursprung berechnet werden. 

PlotR (dx,dy); 

setzt mit der Farbe des aktuellen Farbstifts einen Punkt an einer Koordinate, 
deren Werte sich so berechnen, daß zum aktuellen x-Wert des Grafikcursors 
dx und zum aktuellen y-Wert des Grafikcursors dy addiert werden. 
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3. Grafikelemente 

Circle (x,y,r); 

zeichnet einen Kreis um den Mittelpunkt (x,y) mit dem Radius r. Die Koordi¬ 
nate (x,y) ist relativ zum Ursprung. Die Parameter sind vom Typ INTEGER. 

FillCircle (x,y,r); 

zeichnet einen, mit der aktuellen Stiftfarbe ausgefüllten Kreis um den Mittel¬ 
punkt (x,y) mit dem Radius r. Die Koordinate (x,y) ist relativ zum Ursprung. 
Die Parameter sind vom Typ INTEGER. 

Pattern (Muster); 

wird aufgerufen, um ein Muster für die FillPattem-Prozedur zu definieren. 
Dazu muß der Parameter Muster vom Typ ARRAY [0..7] OF BYTE sein. Das 
Muster besteht aus 8 Zeilen mit je 8 Punkten. Jedes Byte stellt eine Zeile dar 
(angefangen mit der unteren Zeile). Innerhalb jedes Bytes stellt eine binäre 1 
einen Punkt dar. 

FillPattern (x_unten, y_unten, x_oben, y__oben) ; 

füllt ein Rechteck mit den angegebenen Koordinaten mit einem Muster, das 
mit Pattern definiert wird, in der aktuellen Stiftfarbe. 

PROGRAM Patterntest; 

[$I GRAFIK3.INC] 

CONST lines:pmuster=(231,36,66,129,129,129,66,60) ; 

BEGIN 

ClrScr; 

GrafMode(0); 

Ink (1,26, 26) ; 

GrafPen(1); 

Pattern (lines); 

FillPattern (100,100,123,123); 

[mit FillPattern wird ein Muster aus 9 Zeichen erzeugt] 
READLN; 

END. 


4. Grafikkoordinaten 

XPos; 

ist eine Funktion vom Ergebnistyp INTEGER, die die aktuelle X-Koordinate 
bezüglich des Ursprungs als Ergebnis hat. 
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YPos; 

ist eine Funktion vom Ergebnistyp INTEGER, die die aktuelle Y-Koordinate 
bezüglich des Ursprungs als Ergebnis hat. 

XVector (Winkel, Laenge); 

ist eine Funktion vom Ergebnistyp INTEGER und zwei Parametern vom Typ 
INTEGER, die die X-Koordinate eines Vektors bezüglich des Ursprungs als 
Ergebnis hat. 

Der Vektor wird definiert durch einen Winkel und eine Laenge bezüglich der 
aktuellen Cursorposition. Ein eventueller Rundungsfehler wird vernachläs¬ 
sigt. 


YVector (Winkel, Laenge); 

ist eine Funktion vom Ergebnistyp INTEGER und zwei Parametern vom Typ 
INTEGER, die die Y-Koordinate eines Vektors bezüglich des Ursprungs als 
Ergebnis hat. 

Der Vektor wird definiert durch einen Winkel und eine Laenge bezüglich der 
aktuellen Cursorposition. Ein eventueller Rundungsfehler wird vernachläs¬ 
sigt. 


XCVector (Winkel, Laenge); 

ist eine Funktion vom Ergebnistyp INTEGER und zwei Parametern vom Typ 
INTEGER, die die X-Koordinate eines Vektors bezüglich des Ursprungs als 
Ergebnis hat. 

Der Vektor wird definiert durch einen Winkel und eine Laenge bezüglich der 
aktuellen Cursorposition. Die vordefinierte Variable XError vom Typ REAL 
beinhaltet den Rundungsfehler, der das neue Ergebnis beim nächsten Funk¬ 
tionsaufruf von XCVector beeinflußt. 

YCVector (Winkel, Laenge); 

ist eine Funktion vom Ergebnistyp INTEGER und zwei Parametern vom Typ 
INTEGER, die die Y-Koordinate eines Vektors bezüglich des Ursprungs als 
Ergebnis hat. 

Der Vektor wird definiert durch einen Winkel und eine Laenge bezüglich der 
aktuellen Cursorposition. Die vordefinierte Variable XError vom Typ REAL 
beinhaltet den Rundungsfehler, der das neue Ergebnis beim nächsten Funk¬ 
tionsaufruf von YCVector beeinflußt. 
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Test (x, y); 

ist eine Funktion vom Ergebnistyp BOOLEAN, die das Ergebnis TRUE hat, 
wenn an der Koordinate (x,y) relativ zum Ursprung ein Punkt gesetzt ist, sonst 
FALSE. 

TestR (x,y); 

ist eine Funktion vom Ergebnistyp BOOLEAN, die das Ergebnis TRUE hat, 
wenn an der Koordinate (x,y) relativ zur aktuellen Cursorposition ein Punkt 
gesetzt ist, sonst FALSE. 


5. Text innerhalb der Grafik 

CursorOn; 

ist eine parameterfreie Prozedur, die die Darstellung des Textcursors ein¬ 
schaltet. 

CursorOff; 

ist eine parameterfreie Prozedur, die die Darstellung des Textcursors aus¬ 
schaltet. 

GrafOut (Zeichen); 

gibt ein Zeichen vom Typ CHAR an der Position des Grafikcursors aus. Der 
Cursor markiert die linke obere Ecke des Zeichens und wandert abhängig vom 
Bildschirmmodus 8 (bzw.16 oder 32) Punkte weiter nach rechts. 


6. Textkontrolle 

Pen (Farbstift); 

wählt einen Farbstift für die Textausgabe aus. 


WhereX; 

ist eine Funktion vom Ergebnistyp INTEGER, die die Spaltenposition des 
Textcursors ausgibt (links 1). 


WhereY; 

ist eine Funktion vom Ergebnistyp INTEGER, die die Zeilenposition des Text¬ 
cursors ausgibt (oben 1). 
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7. Turtlegrafik 

Bei der Turtlegrafik stellt man sich auf dem Bildschirm eine Schildkröte (Tur¬ 
tle) vor, die bei jeder Bewegung auf dem Bildschirm eine Linie hinterlassen 
kann. Die Schildkröte hat also einen Farbstift, kann sich bewegen und ihre 
Richtung ändern. Tatsächlich ist auf dem Bildschirm keine Schildkröte, son¬ 
dern gegebenenfalls ein kleines Dreieck zu sehen. 

Für die Benutzung der Turtlegrafik, deren Befehle den Grafikbefehlen der 
Programmiersprache LOGO recht ähnlich sind, muß ebenfalls die Include- 
Datei TURTLE3.INC mit folgender Programmzeile 

{$1 TURTLE3.INC } 
aufgerufen werden. 

Hinweis: Die Turtlegrafik benutzt den Bildschirm mit anderen Koordinaten! 
Die Mitte des Bildschirms hat die Koordinate (0,0). Die X-Werte können 
Werte zwischen -319 und +320 und die Y-Werte zwischen -199 und +200 
annehmen. Positive Werte erstrecken sich nach rechts bzw. nach oben. 

Forward (Strecke); 

bewegt Turtle um eine bestimmte Strecke (INTEGER) vorwärts in der aktuel¬ 
len Richtung und hinterläßt einen Strich in der aktuellen Farbe. 

Back (Strecke); 

bewegt Turtle um eine bestimmte Strecke (INTEGER) rückwärts in der aktu¬ 
ellen Richtung und hinterläßt einen Strich in der aktuellen Farbe. 

SetPenColor (Farbnummer); 

wählt eine Stiftfarbe zum Zeichnen aus. 


PenDown; 

senkt den Stift zum Zeichnen ab. 

PenUp; 

hebt den Stift an (d.h. kein Zeichnen bei Bewegung). 

TurnLeft (Winkel); 

dreht die Turtlerichtung aus der aktuellen Richtung nach links weiter. Winkel 
ist vom Typ INTEGER und gibt den Winkel in Grad an. 
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TurnRight (Winkel); 

dreht die Turtlerichtung aus der aktuellen Richtung nach rechts weiter. Win¬ 
kel ist vom Typ INTEGER und gibt den Winkel in Grad an. 

SetPosition (x,y); 

bewegt Turtle ohne Änderung der aktuell eingestellten Richtung an die Posi¬ 
tion mit der Koordinate (x,y). 

SetHeading (Winkel); 

gibt Turtle eine Richtung bezogen auf das Koordinatensystem. Dabei bedeutet 
Winkel=0 die Richtung nach oben. Die Winkelwerte (in Grad) sind vom Typ 
INTEGER. Vier Konstanten North, East, South und West mit den entspre¬ 
chenden Winkelwerten (0, 90, 180, 270) sind vordefiniert. Der Winkel wird 
MOD 360 behandelt. 

ClearScreen; 

löscht den Grafikbildschirm und setzt Turtle auf Ausgangsposition. 


Home; 

setzt Turtle auf die Koordinate (0,0) und Winkel auf 0 Grad. 

ShowTurtle; 

macht Turtle als kleines Dreieck auf dem Bildschirm sichtbar. 

HideTurtle; 
läßt Turtle unsichtbar. 

Wrap; 

sorgt dafür, daß Turtle bei Überschreiten der Fenstergrenzen auf der entge¬ 
gengesetzten Seite des Bildschirms wieder auftaucht. 


NoWrap; 

hebt Wrap auf, d.h. beim Überschreiten der Fenstergrenzen sieht man nichts. 

TurtleWindow (x, y, Breite, Hoehe); 

stellt ein neues Bildschirmfenster ein. Ausgehend von der absoluten Koordina¬ 
te (x,y) (Mitte des neuen Fensters) wird mit den Werten Breite und Hoehe die 
Größe des Fensters festgelegt. 
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TurtleDelay (Zeit); 

sorgt für eine Verzögerung in Millisekunden bei jeder Aktion der Turtle. Zeit 
ist vom Typ INTEGER. 

XCor; 

YCor; 

sind Funktionen vom Ergebnistyp INTEGER und geben die aktuellen X- und 
Y-Werte der Turtleposition an. 


CHeading; 

ist eine Funktion vom Ergebnistyp INTEGER und gibt die aktuelle Richtung 
der Turtle aus. 

PROGRAM whileplot; 

{$1 Grafik3.Inc} 

{$1 Turtle3.Inc} 

VAR 1, w, z: INTEGER; 

PROCEDURE frame; 

BEGIN 

SetHeading(east); PenUp; 

Forwd (159);TurnLeft(90); 

PenDown; Forwd(69); TurnLeft(90); 

Forwd(318); TurnLeft(90); 

Forwd(138); TurnLeft(90); 

Forwd(318); TurnLeft(90); 

Forwd(69); Penüp; TurnLeft(90); 

Forwd(159); SetHeading(east); PenDown; 

END; 

PROCEDURE Seite (laenge, winkel, Zuwachs : INTEGER); 

BEGIN 

IF laenge < 200 THEN BEGIN 
FORWD (laenge); 

TURNLEFT (winkel); 
laenge:=laenge + Zuwachs; 

Seite (laenge,winkel,Zuwachs) 

END 

END; 


PROCEDURE eingabe; 

BEGIN 

GOTOXY(0,1) ; 

WRITE ('Eingabe Anfangsseite: '); 

GOTOXY(30,1); WRITE (' '); GOTOXY(30,1);READLN (1); 

GOTOXY(0,2); 

WRITE ('Eingabe Winkelaenderung: '); 

GOTOXY (30,2); WRITE (' '); GOTOXY (30,2); READLN (w); 
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GOTOXY(0,3) ; 

WRITE (*Eingabe Seitenzuwachs: '); 

GOTOXY(30,3); WRITE (' ’); GOTOXY(30,3);READLN (z); 

END; 

BEGIN (Hauptprogramm) 

ClrScr; 

eingabe; 

TurtleWindow(160,250,320,140) ; 
f rame; 

Seite(1,w,z); 
eingabe; 

TurtleWindow(480,110,320,140); 
frame; 

Seite(1,w,z); 
eingabe; 

TurtleWindow(480,250,320,140); 
frame; 

Seite(1,w,z); 
eingabe; 

TurtleWindow(160,110,320,140); 
frame; 

Seite(1,w,z); 

READLN 

END. 


11.2 Tonerzeugung 

Zur Erzeugung von Tönen reicht der Aufruf (TURTLE3.INC) der Basisgra¬ 
fik aus. 

Sound (Kanal, Periode, Dauer, Vol, LHuelle, THuelle, 

GPeriode); 

ist eine Prozedur, deren Parameter Periode, Dauer, Vol, LHuelle, THuelle 
vom Typ INTEGER und Kanal und GPeriode vom Typ BYTE sind, mit der 
man einen Ton einstellen kann. Dabei bedeuten 

Kanal: Sendekanal mit den Werten 1 (Kanal A), 2 (Kanal B), 4 (Kanal C), 

8 (Rendezvous mit Kanal A), 16 (Rendezvous mit Kanal B), 
32 (Rendezvous mit Kanal C), 64 (hold) und 128 (flush). Eine Mi¬ 
schung dieser Parameter ergibt sich durch entsprechende Addi¬ 
tion der Werte. 
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Periode: 


Dauer: 

Vol: 

LHuelle: 

THuelle: 

GPeriode: 


Tonperiode 0..4095 mit der die Frequenz nach der Formel 
Frequenz = 125000/Periode 
bestimmt wird. 

Wert zwischen -32768 und +32767, der die Tonlänge in 1/100 Se¬ 
kunden angibt. 

Ein Wert zwischen 0 und 15 gibt die Lautstärke an. 

Gibt mit seinem Wert 0..15 die zu benutzende Lautstärkenhüllkur¬ 
ve an. 

Gibt mit seinem Wert 0..15 die zu benutzende Tonhüllkurve an. 
Gibt mit seinem Wert 0..15 die gewählte Geräuschperiode an. 


Release (Kanal); 

hebt das Anhalten eines Tons mittels der hold-Option in der Sound-Prozedur 
wieder auf. Kanal ist entsprechend der ersten drei Werte unter Sound (Kanal) 
einzustellen, kann also die Werte 1, 2 und 4 bzw. Summen daraus annehmen. 

SoundReset; 

initialisiert die Tonverwaltung neu und setzt alle Werte zurück. 
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Anhang A 


Wichtige CP/M-Befehle 


- Start von CP/M mit der Befehlsfolge: |CPM Return. 

- DIR Return : listet das Inhaltsverzeichnis der Diskette (Directory) auf. 

- A: Return oder B: Return schaltet auf ein anderes Laufwerk um. Die Lauf¬ 
werke haben die Namen A:, B:. 

- ERA <Filename>: löscht eine Datei (File) mit angegebenem Namen auf der 
Diskette. 

- REN <Filename neu> = <Filename alt>: benennt ein File um. 

- Disckit3 Return: startet Hilfsprogramm zum Formatieren und Kopieren von 
Disketten. Mit F4 (Format): formatiert eine neue Diskette, d.h. die Diskette 
wird zum Arbeiten unter CP/M bereit gemacht. Mit F7 (Copy): kopiert eine 
Diskette im Laufwerk A: (Original) auf eine andere Diskette im Laufwerk 
B: (Kopie). 

- PIP Return: bringt uns in das File-Kopierprogramm. Ein anderes Prompt¬ 
zeichen (*) erscheint auf dem Bildschirm. Mit folgender Zeile können wir 
nun ein File von einem Laufwerk auf ein anderes kopieren: B:<File neu> = 
A:<File alt> Return. 

- TYPE <Dateiname> Return: listet eine Textdatei auf dem Ausgabegerät. 

- CTRL-P: schaltet zwischen Bildschirm und Drucker das Ausgabegerät um. 


Die wichtigsten Dateitypen auf einer Diskette sind: 

- .COM = Lauffähiges Programm in Maschinencode 

- .PAS = Pascal-Programmtext (Textfile) 

- .BAK = Sicherheitskopie des Workfiles 

- .OVR = Overlay 

- .DTA = Daten 
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Anhang B 

Befehle des Turbo-Systems 


Das Menü: 

Logged drive: A 

Work file: 

Main file: 

Edit Compile Run Save 

eXecute Dir Quit Compiler Qptions 

Text: 0 bytes 

Free: 28778 bytes 


Die einzelnen Zeilen des Menüs haben folgende Bedeutung: 

Logged drive: A 

Aktuelles Laufwerk, auf das standardmäßig zugegriffen werden soll. Durch 
Drücken der L-Taste kann ein anderes Laufwerk gewählt werden. 

Work file: 

Aktuelles Workfile. Durch W kann ein anderes Workfile definiert werden. Ist 
das Workfile nicht auf der Diskette, wird ein neues File erzeugt. 

Main file: 

Programm, auf das sich die Befehle C und R beziehen. 

Edit 

Mit E wird der Editor aufgerufen. 


Compile 

Mit C wird das Mainfile (oder das Workfile, wenn kein Mainfile existiert) 
übersetzt. 
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Compiler Options 

Mit O lassen sich Compileroptionen wählen. 

Memory 

Durch Drücken der M-Taste (das ist auch die Standardeinstellung) wird der 
Compiler veranlaßt, den Text so zu übersetzen, daß das lauffähige Programm 
im Rechnerspeicher steht. 

Com-file 

Mit der C-Taste können wir den Compiler veranlassen, das lauffähige Pro¬ 
gramm als .COM-File (z.B. TEST.COM) auf die Diskette zu schreiben. 

cHn-file 

Mit der H-Taste sorgen wir dafür, daß das Programm so übersetzt wird, daß es 
nur von einem anderen Pascal-Programm aufgerufen werden kann (weil Teile 
des Pascal-Systems fehlen). Der Name wird durch .CHN kenntlich gemacht 
(z.B. TEST.CHN). 


Run 

Mit der R-Taste lassen wir den Rechner ein Programm abarbeiten. Entweder 
wird das Programm im Speicher oder (wenn die Compileroption C gewählt 
wurde) das entsprechende .COM-File abgearbeitet. Ist das Programm noch 
nicht übersetzt, wird das zuerst getan. 

Save 

Durch Drücken der S-Taste können wir das Workfile unter dem angegebenen 
Namen abspeichem. Es bleibt eine Kopie der letzten Version des Workfiles 
auf der Diskette mit dem Kürzel .BAK (z.B. TEST.BAK). 


eXecute 

Mit der X-Taste können wir ein anderes Programm aufrufen. 


Dir 

Mit D wird das Inhaltsverzeichnis der angewählten Diskette ausgegeben. 


Quit 

Mit Q wird das Turbo-System verlassen (d.h. zurück zum CP/M-Betriebssy- 
stem). 
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Folgende Files gehören zum Turbo-System: 


TURBO.COM 

TURBO.OVR 

TURBO.MSG 

TLIST.COM 

TINST.COM 

TINST.DTA 

READ.ME 

<Name>.PAS 


Das Turbo Pascal. 

Overlays, die nötig sind, wenn von Turbo aus ein 
.COM-File gestartet werden soll. 

Das Textfile, das die Fehlermeldung enthält. 

Ein Programm zum eleganten Ausdrucken von 
Turbo-Programmtexten. 

Ein Installationsprogramm, um Turbo an den 
jeweiligen Rechner anzupassen (siehe Handbuch). 
Daten zu TINST.COM. 

Hinweise zum System. 

eventuell vorhandene Pascal-Programme. 
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Anhang C 

Editor 


1. Kontrollbefehle 


Beenden des Editors - [Ctrl-K] 
Einfügen/Überschreiben - [Ctrl-V] 
Automatischer Tabulator- [Ctrl-Q] 


[Ctrl-D] 

(oder COPY-Taste) 
[Ctrl-I] 


2. Cursorbefehle 


Ein Zeichen nach links 
Ein Zeichen nach rechts 
Ein Zeichen nach oben 
Ein Zeichen nach unten 


[Ctrl-S] (oder Pfeil links) 
[Ctrl-D] (oder Pfeil rechts) 
[Ctrl-E] (oder Pfeil oben) 
[Ctrl-X] (oder Pfeil unten) 


Hinweis: Die Cursortasten sind wie folgt angeordnet: 



E 



s 


D 

(leicht zu merken) 


X 




Neben diesen Zeichen sitzen die Zeichen zur wortweisen Rechts-/Linksbewe- 
gung und seitenweisen Auf-/Abbewegung: 


Ein Wort nach links 
Ein Wort nach recht 
Eine Seite nach oben 
Eine Seite nach unten 


- [Ctrl-A] (oder Ctrl Pfeil links) 

- [Ctrl-F] (oder Ctrl Pfeil rechts) 

- [Ctrl-R] (oder Ctrl Pfeil oben) 

- [Ctrl-C] (oder Ctrl Pfeil unten) 


Der ganze Bildschirm kann verschoben werden, ohne die Cursorposition zu 
ändern: 


Bildschirm eine Zeile nach oben - [Ctrl-W] (oder Shift Pfeil oben) 
Bildschirm eine Zeile nach unten - [Ctrl-Z] (oder Shift Pfeil unten) 
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Finden bestimmter Positionen im Text: 

Cursor in die oberste Bildschirmzeile - [Ctrl-Q] [Ctrl-E] 

Cursor in die unterste Bildschirmzeile - [Ctrl-Q] [Ctrl-X] 

Cursor an Textanfang - [Ctrl-Q] [Ctrl-R] 

Cursor an Textende - [Ctrl-Q] [Ctrl-C] 

Cursor an letzte Cursorposition - [Ctrl-Q] [Ctrl-P] 

3. Befehle zum Einfügen und Löschen 

Löschen eines Zeichens links vom Cursor 
Löschen eines Zeichens unter dem Cursor 
Löschen eines Wortes rechts vom Cursor 
Löschen einer Zeile 
Löschen bis Zeilenende 
Einfügen einer Zeile 

4. Blockbefehle 

Anfangsmarkierung 
Endmarkierung 
Ein einzelnes Wort markieren 
Umschalten Blockanzeigen 
Vorher markierter Block 
soll an Cursorposition kopiert werden 
Vorher markierter Block 
soll zu Cursorposition bewegt werden 
Löschen eines Blocks 
Block von Diskette lesen 
Block auf Diskette schreiben 

5. Verschiedenes 

Tabulator an die Spalte des letzten Zeilenanfangs - [Ctrl-I] 

Ursprünglicher Inhalt der aktuellen Zeile - [Ctrl-Q] [Ctrl-L] 

Abbruch eines Kommandos - [Ctrl-U] 

Eingabe eines Ctrl-Zeichens in den Text 

durch Voranstellen von - [Ctrl-P] 

Finden eines Strings bis 30 Zeichen Länge - [Ctrl-Q] [Ctrl-F] 

Der zu findende String wird eingegeben und mit <Retum> abgeschlossen 
(Ctrl-Zeichen mit Ctrl-P einfügen). 

Dann wird nach Optionen gefragt: 

B = Rückwärts suchen ab Cursorposition (sonst vorwärts). 

G = Global suchen (d.h. im ganzen Text). 


- [Ctrl-K] [Ctrl-B] 

- [Ctrl-K] [Ctrl-K] 

- [Ctrl-K] [Ctrl-T] 

- [Ctrl-K] [Ctrl-H] 

- [Ctrl-K] [Ctrl-C] 

- [Ctrl-K] [Ctrl-V] 

- [Ctrl-K] [Ctrl-Y] 

- [Ctrl-K] [Ctrl-R] 

- [Ctrl-K] [Ctrl-W] 


- DEL -Taste 

- [Ctrl-G] 

- [Ctrl-T] 

- [Ctrl-Y] 

- [Ctrl-Q] [ Ctrl-Y] 

- [Ctrl-N] 



Anhang C: Editor 


265 


<Zahl> = Gibt an, das wievielte Auftreten des Textes gefunden werden 
soll. 

U = Groß-/Kleinschreibung ignorieren. 

W = Nur ganze Worte finden (sonst auch Auftreten des Textteils in 
anderen Texten). 

Finden und Ersetzen - [Ctrl-Q] [Ctrl-A] 

Wie Finden. Mit zusätzlicher Angabe des Ersatztextes. Optionen wie bei 
Finden. Zusätzlich: 

<Zahl> = Anzahl der zu ersetzenden Textmuster. 

N = Ersetzen ohne Nachfrage (Y/N). 

Letztes Finden wiederholen - [Ctrl-L] 
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Anhang D 

Compiler-Direktiven 


Compiler-Direktiven haben die Form eines Kommentars, werden jedoch nach 

der Kommentarklammer mit einem $-Zeichen begonnen. 

Sie veranlassen den Compiler ab der Stelle des Auftretens der Direktive, be¬ 
stimmte Merkmale zu berücksichtigen. 

{$B+} (Normalwert) bestimmt, daß INPUT und OUTPUT mit dem Gerät 

CON: verknüpft werden. 

{$B-} INPUT und OUTPUT werden mit TRM: verknüpft. 

{$C+} (Normalwert) bestimmt, daß bei der Eingabe über CON:CTRL-Zei- 
chen interpretiert werden. Z.B. unterbricht CTRL-C bei einer Ein¬ 
gabe das Programm, und CTRL-S hält das Programm an. 

{$C-} bestimmt, daß CTRL-Zeichen nicht interpretiert werden. 

{$1+} (Normalwert) bewirkt, daß Ein- und Ausgabefehler zu Programm¬ 
unterbrechungen führen. 

{$1-} schaltet die Programmunterbrechung bei Ein- und Ausgabefehlem 
aus. IORESULT bekommt den Wert des aufgetretenen Fehlers. Die 
Nummern sind in Anhang J zu finden. 

{$1 Filename} fügt an dieser Stelle eine Textdatei des angegebenen Filenamens 
ein. 

{$R-} (Normalwert) bewirkt keinen range-check, d.h. keine Überprüfung 
der Bereichsgrenzen von Feldern und Unterbereichen. 

{ $R+ } bewirkt range-check. 

{$V+} (Normalwert) bestimmt, daß die Übereinstimmung der Übergabe¬ 
parameter vom Typ STRING bezüglich gleicher Länge überprüft 
wird. 
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{$V-} Übereinstimmung der STRING-Parameter wird nicht geprüft. 

{$U-} (Normalwert) bewirkt, daß der Benutzer das Programm nicht mit 
CTRL-C abbrechen kann. 

{$U+} Programm kann mit CTRL-C unterbrochen werden. 

{$0 Laufwerk} bestimmt das Laufwerk, von dem die Overlays gelesen wer¬ 
den. Wird @ als Laufwerk angegeben, handelt es sich um das aktu¬ 
elle Laufwerk. 

{$A+} (Normalwert) bestimmt, daß kein rekursiver Code erzeugt wird. 

{$A-} Rekursionen sind erlaubt. 

{$Wn} (Normalwert W2) bestimmt die maximale Schachtelungstiefe bei 
WITH-Anweisungen. n liegt im Bereich 0..9. 

{$X+} (Normalwert) bewirkt bei der Verarbeitung von Feldern mehr Spei¬ 
cherplatz und Geschwindigkeit. 

{$X-} bewirkt bei der Verarbeitung von Feldern weniger Speicherplatz 
und Geschwindigkeit. 
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Anhang E 

Reservierte Wörter 


Erlaubte Zeichen 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 

abcdefghijklmnopqrstuvwxyz 

0123456789 

_ (Unterstreichungszeichen) 

() 

[ ] Ersatzsymbol: (..) 

{} Ersatzsymbol: (♦ *) 

> > . . 

• > > • 

+ - * / 

= <><<=>>= 

A 

$ # 


Reservierte Wörter 

(Es ist unerheblich, ob die Wörter groß oder klein geschrieben werden.) 


ABSOLUTE 

EXTERNAL 

NIL 

SHR 

AND 

FILE 

NOT 

STRING 

ARRAY 

FOR 

OF 

THEN 

BEGIN 

FORWARD 

OR 

TO 

CASE 

FUNCTION 

PACKED 

TYPE 

CONST 

GOTO 

PROCEDURE 

UNTIL 

DIV 

IF 

PROGRAM 

VAR 

DO 

IN 

RECORD 

WHILE 

DOWNTO 

INLINE 

REPEAT 

WITH 

ELSE 

LABEL 

SET 

XOR 

END 

MOD 

SHL 




Anhang E: Reservierte Wörter 


269 


Standardbezeichner 


ARCTAN 

EOF 

ASSIGN 

EOLN 

AUX 

ERASE 

AUXINPTR 

ERRORPTR 

AUXOUTPTR 

EXECUTE 

BLOCKREAD 

EXIT 

BLOCKWRITE 

EXP 

BOOLEAN 

FALSE 

BUFLEN 

FILEPOS 

BYTE 

FILESIZE 

CHAIN 

FILLCHAR 

CHAR 

FLUSH 

CHR 

FRAC 

CLOSE 

GETMEM 

CLREOL 

GOTOXY 

CLRSCR 

HEAPPTR 

CON 

HI 

CONINPTR 

IORESULT 

CONOUTPTR 

INPUT 

CONCAT 

INSLINE 

CONSTPTR 

INSERT 

COPY 

INT 

COS 

INTEGER 

CRTEXIT 

KBD 

CRTINIT 

KEYPRESSED 

DELLINE 

LENGTH 

DELAY 

LN 

DELETE 

LO 


LOWVIDEO 

RENAME 

LST 

RESET 

LSTOUTPTR 

REWRITE 

MARK 

ROUND 

MAXINT 

SEEK 

MEM 

SEEKOF 

MEMAVAIL 

SEEKEOLN 

MOVE 

SIN 

NEW 

SIZEOF 

NORMVIDEO 

SQR 

ODD 

SQRT 

ORD 

STR 

OUTPUT 

SUCC 

OVRDIVE 

SWAP 

OVRPATH 

TEXT 

PARAMCOUNT 

TRM 

PARAMSTR 

TRUE 

PI 

TRUNC 

PORT 

UPCASE 

POS 

USR 

PRED 

USRINPTR 

PTR 

USROUTPTR 

RANDOM 

VAL 

RANDOMIZE 

WRITE 

READ 

WRITELN 

READLN 


REAL 


RELEASE 
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AnhangF 


Standardfunktionen und 
-Prozeduren in Turbo Pascal 


T y penabkürzungen 


i = INTEGER, r = 

b = BOOLEAN, a = 
A = Array, x = 

Bezeichner Argumenttyp 

REAL, 

Aufzählungstyp, 

beliebig, 

bei Funktionen 
Ergebnistyp 

c = CHAR, s = STRING, 
p = Zeiger, f = Datei, 

/ = nichts 

Beschreibung 

ABS 

roderi 

wie Argument 

Betrag des Arguments 

ARCTAN 

i oder r 

r 

Arcustangens 

ASSIGN 

(f,s) 

/ 

Weist Dateinamen zu 

BLOCKREAD 

(s,A,i,i) 

i 

Lesen eines Diskettenblocks 

BLOCKWRITE 

(s,A,i,i) 

i 

Schreiben eines Diskettenblocks 

CHAIN 

f 

/ 

RuftCHN-File auf 

CHR 

i 

c 

Zeichen aus ASCII mit Nummer i 

CLOSE 

f 

/ 

Schließen einer Datei 

CLREOL 

/ 

/ 

Löschen bis Ende der Zeile 

CLRSCR 

/ 

/ 

Bildschirm löschen 

CONCAT 

s 

s 

Verbindet Strings zu neuem String 

COPY 

(s,i,i) 

s 

Kopiert Teilstring aus String 

COS 

ioderr 

r 

Cosinus 

CRTINIT 

/ 

/ 

Terminal initialisieren 

CRTEXIT 

/ 

/ 

Terminal reset 

DELAY 

i 

/ 

Warte Zeit i 

DELETE 

(s.i.i) 

/ 

Löscht Teil aus String 

DELLINE 

/ 

/ 

Lösche Zeile 

DISPOSE 

P 

/ 

Löscht unbenutzte Zeiger 

EOF 

f 

b 

Ende einer Datei 

EOLN 

f 

b 

Ende einer Zeile 

EXECUTE 

f 

/ 

RuftCOM-File auf 

EXIT 

/ 

/ 

Ausstieg aus Block 

EXP 

ioderr 

r 

e-Funktion 

FILLCHAR 

(x,i,c) 

/ 

Füllt Variable x mit Zeichen 

FRAC 

roderi 

r 

Nachkommawert einer Zahl 

GOTOXY 

(i,i) 

/ 

Setzt Cursor an bestimmter Stelle 

HI 

i 

i 

Höherwertiges Byte des Arguments 

INLINE 

Codierungen 

/ 

Fügt Maschinencode ein 

INSERT 

(s,s,i) 

/ 

Fügt String in anderen String ein 

INSLINE 

/ 

/ 

Fügt Zeile ein 
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INT 

i oder r 

r 

Vorkommawert einer Zahl 

IORESULT 

/ 

i 

Fehlercode 

KEYPRESSED 

/ 

b 

Abfrage auf Tastendruck 

LENGTH 

s 

i 

Gibt Länge des Strings an 

LN 

i oderr 

r 

Logarithmus Naturalis 

LO 

i 

i 

Niederwertiges Byte des Arguments 

LOG 

i oder r 

r 

Dekadischer Logarithmus 

LOWVTDEO 

/ 

/ 

Low-Video-Attribut 

MARK 

i 

/ 

Markieren des Variablenstapels 

MEMAVAIL 

/ 

i 

Freier Speicher 

MOVE 

(x,x,i) 

/ 

Bewegt Anzahl von Bytes 

NEW 

P 

/ 

Erzeugen einer Zeigervariablen 

NORMVIDEO 

/ 

/ 

Norm-Video-Attribut 

ODD 

i 

b 

Wahr, wenn i ungerade ist 

ORD 

c 

i 

Nummer des Zeichens c in ASCII 

OVRDRIVE 

i 

/ 

Drive-Nr. für Overlay 

OVRPATH 

s 

/ 

Pfadname für Overlay 

PARAMCOUNT 

/ 

i 

Anzahl der Parameter 

PARAMSTR 

i 

s 

n-ter Parameter 

POS 

(s,s) 

i 

Position eines Strings in anderem 

PRED 

c,i,b oder a 

wie Argument 

Vorgänger 

PWROFTEN 

roderi 

r 

Zehnerpotenz 

RANDOM 

/ 

r 

Zufallszahl 0.0 bis 1.0 

RANDOM 

i 

i 

Zufallszahl von 0 bis i 

RANDOM3ZE 

/ 

/ 

Erzeugt neue Zufallszahlen 

READ 

i,r,c,s oder / 

/ 

Lesen ohne Zeilenvorschub 

READ 

(f,x) 

/ 

Lesen aus Datei f 

READLN 

i,r,c,s oder / 

/ 

Lesen mit Zeilenvorschub 

RELEASE 

i 

/ 

Rücksetzen des Variablenstapels 

RESET 

(0 

/ 

Eröffnen einer alten Datei 

REWRITE 

(0 

/ 

Eröffnen einer neuen Datei 

ROUND 

r 

i 

Rundet zu ganzer Zahl 

SEEK 

(f,i) 

/ 

Element einer Datei anwählen 

SEEKEOF 

f 

b 

Ähnlich EOF 

SEEKEOLN 

f 

b 

Ähnlich EOLN 

SIN 

i oder r 

r 

Sinus 

SIZEOF 

X 

i 

Speicherplatz der Variablen x 

SQR 

i oderr 

wie Argument 

Quadrat 

SQRT 

i oder r 

r 

Quadratwurzel 

STR 

long-i 

s 

Macht aus Zahl einen String 

SUCC 

c,i,b oder a 

wie Argument 

Nachfolger 

SWAP 

i 

i 

Tauscht LSB und MSB von i 

TRUNC 

long-i oder r 

i 

Ganzzahliger Teil des Arguments 

UPCASE 

c 

c 

Wandelt in Großbuchstaben 

WRITE 

i,r,c,s oder / 

/ 

Schreiben ohne Zeilenvorschub 

WRITE 

(f,x) 

/ 

Schreiben in Datei f 

WRITELN 

i,r,c,s oder / 

/ 

Schreiben mit Zeilenvorschub 
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Anhang G 

Vordefinierte Typen und Konstanten 


Vordefinierte Typen 
INTEGER 

BYTE (Unterbereich 0..255) 

REAL 

CHAR 

STRING (mit Angabe der max. Zeichenzahl) 
BOOLEAN 

Vordefinierte Konstanten 

PI = 3.1415926536 

FALSE 

TRUE 

MAXINT = 32767 
NIL 

Vordefinierte Felder 


MEM 

PORT 
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Anhang H 

ASCII-Zeichensatz-Tabelle 


ASCII-Symbole 

Dez Oktal Hex 

in Dezimal- 

CHR 

, Oktal- und Hexadezi 

Dez Oktal Hex CHR 

maldarstellung 

Dez Oktal Hex 

CHR 

(HM) 

000 

00 

NUL 

(Ctrl-A) 

043 

053 

2B 

+ 

086 

126 

56 

V 

001 

001 

01 

SOH 

(Ctrl-B) 

044 

054 

2C 


087 

127 

57 

W 

002 

002 

02 

STX 

(Ctrl-C) 

045 

055 

2D 

- 

088 

130 

58 

X 

003 

003 

03 

ETX 

(Ctrl-D) 

046 

056 

2E 


089 

131 

59 

Y 

004 

004 

04 

EOT 

(Ctrl-E) 

047 

057 

2F 

/ 

090 

132 

5A 

Z 

005 

005 

05 

E^NQ 

(Ctrl-F) 

048 

060 

30 

0 

091 

133 

5B 

I 

006 

006 

06 

ACK 

(Ctrl-G) 

049 

061 

31 

1 

092 

134 

5C 

\ 

007 

007 

07 

BEL 

(Ctrl-H) 

050 

062 

32 

2 

093 

135 

5D 

] 

008 

010 

08 

BS 

(Ctrl-I) 

051 

063 

33 

3 

094 

136 

5E 

* 

009 

011 

09 

HT 

(Ctrl-J) 

052 

064 

34 

4 

095 

137 

5F 

_ 

010 

012 

0A 

LF 

(Ctrl-K) 

053 

065 

35 

5 

096 

140 

60 


011 

013 

OB 

VT 

(Ctrl-L) 

054 

066 

36 

6 

097 

141 

61 

a 

012 

014 

OC 

FF 

(Ctrl-M) 

055 

067 

37 

7 

098 

142 

62 

b 

013 

015 

OD 

CR 

(Ctrl-N) 

056 

070 

38 

8 

099 

143 

63 

c 

014 

016 

OE 

SO 

(Ctrl-O) 

057 

071 

39 

9 

100 

144 

64 

d 

015 

017 

OF 

SI 

(Ctrl-P) 

058 

072 

3A 


101 

145 

65 

e 

016 

020 

10 

DLE 

(Ctrl-O) 

059 

073 

3B 

; 

102 

146 

66 

f 

017 

021 

11 

DC1 

(Ctrl-R) 

060 

074 

3C 

< 

103 

147 

67 

g 

018 

022 

12 

DC2 

(Ctrl-S) 

061 

075 

3D 

= 

104 

150 

68 

h 

019 

023 

13 

DC3 

(Ctrl-T) 

062 

076 

3E 

> 

105 

151 

69 

i 

020 

024 

14 

DC4 

(Ctrl-U) 

063 

077 

3F 

9 

106 

152 

6A 

j 

021 

025 

15 

NAK (Ctrl-V) 

064 

100 

40 

@ 

107 

153 

6B 

k 

022 

026 

16 

SYN 

(Ctrl-W) 

065 

101 

41 

A 

108 

154 

6C 

1 

023 

027 

17 

ETB 

(Ctrl-X) 

066 

102 

42 

B 

109 

155 

6D 

m 

024 

030 

18 

CAN 

(Ctrl-Y) 

067 

103 

43 

C 

110 

156 

6E 

n 

025 

031 

19 

EM 

(Ctrl-Z) 

068 

104 

44 

D 

111 

157 

6F 

o 

026 

032 

1A 

SUB 

069 

105 

45 

E 

112 

160 

70 

P 

027 

033 

1B 

ESCAPE 

106 

070 

46 

F 

113 

161 

71 

q 

028 

034 

IC 

FS 


071 

107 

47 

G 

114 

162 

72 

r 

029 

035 

ID 

GS 


072 

110 

48 

H 

115 

163 

73 

s 

030 

036 

IE 

RS 


073 

111 

49 

1 

116 

164 

74 

t 

031 

037 

1F 

US 


074 

112 

4A 

J 

117 

165 

75 

u 

032 

040 

20 

SPACE 

075 

113 

4B 

K 

118 

166 

76 

V 

033 

041 

21 

| 


076 

114 

4C 

L 

119 

167 

77 

w 

034 

042 

22 

” 


077 

115 

4D 

M 

120 

170 

78 

X 

035 

043 

23 

# 


078 

116 

4E 

N 

121 

171 

79 

y 

036 

044 

24 

$ 


079 

117 

4F 

O 

122 

172 

7A 

z 

037 

045 

25 

% 


080 

120 

50 

P 

123 

173 

7B 

f 

038 

046 

26 

& 


081 

121 

51 

0 

124 

174 

7C 

f 

039 

047 

27 



082 

122 

52 

R 

125 

175 

7D 

} 

040 

050 

28 

( 


083 

123 

53 

S 

126 

176 

7E 


041 

051 

29 

) 


084 

124 

54 

T 

127 

177 

7F 

DEL 

042 

052 

2A 



085 

125 

55 

U 






(Anmerkung: Der AbCIl-Code verwendet nur 7 Bits eines Bytes. Das höchstwertige Bit (Bit 7) ist in die¬ 
ser Tabelle auf Null gesetzt. Es kann in anderen Fällen auch den Wert 1 haben. Dann ist zum dezimalen 
Codewert 128, zum oktalen 200 und zum hexadezimalen 80 zu addieren.) 
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M OVERLAY 
-J- M PROCEDi 
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block 


EXTERNAL V 


ZHI formal-parameter-liste XD-' 
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formal-parameter-name 
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Anhang J 


Fehlermeldungen 


1. Compiler-Fehlermeldungen 

01 erwartet 

02 V erwartet 

03 V erwartet 

04 ’(’ erwartet 

05 ’)’ erwartet 

06 ’=’ erwartet 

07 erwartet 

08 ’[’ erwartet 

09 ’]’ erwartet 

10 V erwartet 

11 erwartet 

12 BEGIN erwartet 

13 DO erwartet 

14 END erwartet 

15 OF erwartet 

16 PROCEDURE oder FUNCTION erwartet 

17 THEN erwartet 

18 TO oder DOWNTO erwartet 

20 Boolescher Begriff erwartet 

21 Datei-Variable erwartet 

22 Integer-Konstante erwartet 

23 Integer-Ausdruck erwartet 

24 Integer-Variable erwartet 

25 Integer- oder reelle Konstante erwartet 

26 Integer- oder reeller Ausdruck erwartet 

27 Integer- oder reelle Variable erwartet 

28 Zeiger-Variable erwartet 

29 Record-Variable erwartet 

30 Einfacher Typ erwartet 

31 Einfacher Ausdruck erwartet 

32 Stringkonstante erwartet 

33 Stringausdruck erwartet 

34 Stringvariable erwartet 

35 Textdatei erwartet 

36 Typenbezeichner erwartet 
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37 Untypisierte Datei erwartet 

40 Undefiniertes Label 

41 Unbekannter Bezeichner oder Syntaxfehler 

42 Undefinierter Zeigertyp in vorhergehender Typdefinition 

43 Doppelter Bezeichner oder doppeltes Label 

44 Unpassende Typen 

45 Konstante außerhalb der Grenze 

46 Konstanten und OASE-Selektortyp passen nicht zusammen 

47 Typ des Operanden paßt nicht zum Operator 

48 Ungültiger Ergebnistyp 

49 Ungültige Stringlänge 

50 Stringkonstantenlänge paßt nicht zum Typ 

51 Ungültiger Teilbereichsgrundtyp 

52 Untere Grenze > obere Grenze 

53 Reserviertes Wort 

54 Unerlaubte Zuweisung 

55 Stringkonstante geht über die Zeile hinaus 

56 Fehler bei einer Integer-Konstanten 

57 Fehler bei einer Real-Konstanten 

58 Unerlaubtes Zeichen in einem Bezeichner 

60 Konstanten sind hier nicht erlaubt 

61 Dateien und Zeiger sind hier nicht erlaubt 

62 Strukturierte Variablen sind hier nicht erlaubt 

63 Textdateien sind hier nicht erlaubt 

64 Textdateien und untypisierte Dateien sind hier nicht erlaubt 

65 Untypisierte Dateien sind hier nicht erlaubt 

66 Eingabe/Ausgabe ist hier nicht erlaubt 

67 Dateien müssen VAR-Parameter sein 

68 Dateikomponenten dürfen keine Dateien sein 

69 Ungültige Ordnung von Feldern 

70 Mengengrundtyp außerhalb des zulässigen Bereichs 

71 Unerlaubtes GOTO 

72 Label nicht innerhalb des gegenwärtigen Blocks 

73 Undefinierte FOREWARD-Prozedur(en) 

74 INLINE-Fehler 

75 Unerlaubter Gebrauch von ABSOLUTE 

76 Overlays können nicht FORWARD deklariert werden 

77 Im Direkt-Modus sind Overlays nicht erlaubt 

90 Datei nicht gefunden 

91 Unerwartetes Ende der Source 

92 Es kann keine Overlaydatei gebildet werden 

97 Zu viele geschachtelte WITHs 

98 Speicherüberlauf 

99 Compilerüberlauf 
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2. Laufzeit-Fehlermeldungen 
Laufzeit-Fehlermeldungen werden in der Form 


Run-time error NN, PC=addr 
Program aborted 

angezeigt. Für NN gilt: 

01 Gleitkommaüberlauf 

02 Sie haben versucht, durch Null zu dividieren 
03 Sqrt-Argumentfehler 

04 Ln-Argumentfehler 

10 String-Längenfehler 

11 Ungültiger Stringindex 

90 Index außerhalb des zulässigen Bereichs 

91 Skalar oder Teilbereich außerhalb des zulässigen Bereichs 

92 Außerhalb des Integer-Bereichs 

FF Heap/Stackkollision 


3. I/O-Fehlermeldungen 
I/O-Fehlermeldungen werden in der Form 


I/O error NN, PC=addr 
Program aborted 

angezeigt. Für NN gilt: 

01 Datei ist nicht vorhanden 

02 Lesen der Datei nicht möglich 

03 Ausgabe in der Datei nicht möglich 

04 Datei nicht offen 

10 Fehler im numerischen Format 

20 Operation auf einem logischen Gerät nicht zugelassen 

21 In Direktmodus nicht zugelassen 

22 Zuordnung als Standard-Datei nicht zulässig 

90 Unpassende Recordlänge 

91 Suchen Sie nach end-of-file 

99 Unerwartetes end-of-file 

F0 Diskettenschreibfehler 

Fl Directory ist voll 

F2 Dateigrößenüberschreitung 

FF Datei verschwunden 
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Stichwortverzeichnis 


JBAK 11,259 
.COM 11,259 
.DTA 11,259 
.OVR 11,259 
.PAS 11,13,259 

ABSOLUTE 32 
Access 234 ff. 

Addition 38 
Adreßdatei 167 ff. 

AND 32 
ARCTAN 32 
ARRAY 32 
ASCII-Zeichensatz 273 
ASSIGN 32,162 
Aufzählungen 56 ff. 

Ausgabe 23 ff. 
formatierte 26 f., 41,45,48, 
52,55 

AUX 32,178 
AUXINPTR 32 

Bäume 196 ff. 
Basis-Grafikbefehle 248 ff. 
Befehle 22, 24, 259 ff. 

BEGIN 32 

Benutzerdefinierte Bezeichner 
33, 35 f. 

Bildschirminstallation 13 
Bitkombinationen 38 f. 
Blockbefehle 15, 17, 264 
BLOCKREAD 180 
BLOCKWRITE 32, 180 
BOOLEAN 30, 32, 53 ff. 
Booten 9 

Bruchrechnung 96 f. 

BUFLEN 32 
BYTE 32,37 ff. 


CASE 32,83 ff. 

CD 33 

CHAIN 32,218 f. 

CHAR 29,32,45 ff. 
cHn-file 14,261 
CHR 33 
CLOSE 33,162 
CLREOL 33,101 
CLRSCR 26,33,102 
Com-file 14,261 
Compile 260 

Compiler 12,14, 18 f., 164 
Compiler-Direktiven 266 f. 
Compiler-Fehlermeldungen 
285 f. 

Compiler-Optionen 14, 261 
CON 33,178 
CONCAT 33 
CONINPTR 33 
CONOUTPTR 33 
CONST 32 
CONSTPTR 33 
COPY 33 
COS 33 

CP/M-Befehle 259 
CP/M-Betriebssystem 9 ff. 
CRTEXIT 33, 102 
CRTINIT 33, 102 
Cursorbefehle 263 
Cursorbewegungsbefehle 15 f. 

Datentypen 113 f. 
einfache 29 ff., 37 ff. 
zusammengesetzte 129 ff. 
Dateien 159 ff. 

typenlose 179 ff. 
Deklarationsteil 21,28 
DELAY 33,102 
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DELETE 33 
DELLINE 33,102 
Dezimalzahlen 41 ff. 

DIR 9,15,261 
Diskettenfiles 12 
DISPOSE 185 
DIV 32 
Division 38 
DO 32 
DOWN TO 32 
Druckparameter 226f. 

Edit 14,260 
Editor 12, 15 ff., 263 ff. 
Editorbefehle 15 
Einfügen 15, 17,264 
Eingabe 23 ff., 48, 55 
ELSE 32 
END 32 

Entscheidungen 79 ff. 

EOF 33,163 f., 176 
EOLN 33,176 
ERA <Filename> 9 
ERASE 33,174 
ERRORPTR 33 
Ersetzen 18 
EXECUTE 33,219 f. 
eXecute 15, 261 
EXIT 33, 102 
EXP 33 
EXTERNAL 32 

FALSE 30,33,53 
Fehlerbehandlung 227 f. 
Fehlermeldungen 11,19,285 
Felder 

eindimensionale 129 ff. 
mehrdimensionale 130 ff. 
Sortieren 139 ff. 
vordefinierte 272 
Fibonacci-Zahlen 120 ff. 
FILE 32,175 


FILEPOS 33,175 
FILESIZE 33,175 
FILLCHAR 33,104 
Finden 18 
FLUSH 33,174 
FOR 32 
Formatieren 10 
FOR-Schleife 67 ff. 
FRAC 33 
FREEMEN 186 
FUNCTION 32 
Funktionen 104 ff. 
arithmetische 112 f. 
skalare 113 


GETMEM 33,185 
Gleichheit 31 
Global 28 
GOTO 32 
GOTOXY 26,103 
Grafikelemente 251 
Grafiken 247 ff. 
Grafikkoordinaten 251 ff. 
Großschreibung 18 

HALT 103 
HEAPPTR 33 
hexadezimal 37 ff. 

HI 33 

Histogramm 133 f. 

IF 32, 79 ff. 

IN 32 

Include 220 f. 

INLINE 32, 216 ff. 
INPUT 33, 178 
INSERT 33 
INSLINE 33,102 
INTEGER 29, 33, 37 ff. 
INT 33 

I/O-Fehlermeldungen 287 
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KBD 33,178 
KEYPRESSED 33 
Kleinschreibung 18 
Kommentar 22, 30 f. 
Konstanten 27 ff., 272 
Konstantennamen 28 f. 
Kontrollbefehle 15f.,263f. 
Kopieren 10 f., 181 

LABEL 32 

Laufzeit-Fehlermeldungen 287 
LENGTH 33 
Lieszeichen 108 ff. 

Listen 186 ff. 

LISTOUTPTR 33 
LN 33 
LO 33 

Löschen 15,17,264 
Logged drive 12 f., 260 
Lottozahlen 134 f. 
LOWVIDEO 33, 103 
LST 33,178 

Mainfile 14,260 
MARK 33 
MAXINT 33 
MEM 33 
MEMAVAIL 33 
Memory 14,261 
Mengen 61 ff. 

Menü 13 ff. 

Meßwerte 135 f. 

MOD 32 
MOVE 33,103 
Multiplikation 38 

NEW 33, 183 
NIL 32 

NORMVIDEO 33,103 

OF 32 
ODD 33 


Optionen 17 
OR 32 
ORD 33 

OUTPUT 33,178 
OVRDRIVE 33 
OVRPATH 33 

PACKED 32 
PARAMSTR 33 
PIP Return 10 
PRED 33 
Primzahl 107 
PROCEDURE 32 
PROGRAM 32 
Programmkopf 21 
Promptsymbol 9 f. 

PRT 33 

Prozeduren 87 ff. 
zur Datenverwaltung 237 ff. 
externe 215 f. 

zur Schlüsselverwaltung 239 
mit Variablenübergabe 89 f. 
mit Wertübergabe 91 ff. 

Quicksort 148 
Quit 15,261 
Overlays 221 ff. 

RANDOM 33 
RANDOMIZE 33,103 
READ 24 ff., 33, 162, 175 
READLN 24 ff., 33, 175 
READ.ME 11 
REAL 29, 33, 41 ff. 

RECORD 32 
Rekursionen 116 ff. 
RELEASE 33 
RENAME 33,175 
REN <Filename> 9 
REPEAT 32,78 
REPEAT-Schleife 71 ff. 
Reservierte Wörter 31 ff., 268 
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RESET 33,162 
Rest 38 

REWRITE 33,162 
ROUND 33 
Run 14, 261 

Save 14 f., 261 
Schleifen 67 ff. 
Schlüsseldateien 236 
Schreibschutz 10 
SEEK 33,165 
SEEKEOF 33 
SEEKEOLN 33 
SET 32 
SHL 32 
SHR 32 
SIN 33 
SIZEOF 33 

Sortieren 139 ff., 229 ff. 
Speicheradressen 60 f. 
Speicherplatz 18 f., 27 f., 120 
Speicherstellenzugriff 214 ff. 
Sprungbefehl 22 
SQR 33 
SQRT 33 

Sreen-Installation 13 
Standardbezeichner 31 ff., 269 
Standarddateien 177 ff. 
Standardfunktionen 111 ff., 
270 f. 

Standardprozeduren 101 ff., 
270 f. 

STR 33 

STRING 29, 32,48 ff. 
Stundenplan 136 ff. 
Subtraktion 38 
SUCC 33 
Suffix 11 
SWAP 33 
Symbole 33 

Syntaxdiagramme 34 ff., 274 
Syntax-Fehler 19 


Tabulator 17 
Teiler 

größter gemeinsamer 106 f. 
Terminiertheit 74 f., 77 
TEXT 33,175 
Texteditor 15 ff. 

Textdateien 175 ff. 
Textkontrolle 253 
THEN 32 
TUST 226 ff. 

TO 32 
Töne 247 ff. 

Tonerzeugung 257 f. 

TRM 33,178 
TRUE 30,33,53 
TRUNC 33 
Turb 

Turbo Editor 15 ff. 
Turtlegrafik 254 ff. 

TYPE 32 

TYPE-Deklaration 56 ff. 
Typenkonstanten 211 ff. 
Typumwandlungen 60 f. 

Überschreiben 10 
Unterbereiche 56 ff. 
Unterprogramme 87 ff. 
UNTIL 32 
UPCASE 33 
USR 33,178 
USRINPTR 33 

VAI 33 

VAR 32,161,175 
Variablen 27 ff. 
Variablendeklaration 36 
Variablennamen 28 f. 
Verbünde 149 ff. 

Vergleichsoperatoren 39 

Wahrheitswerte 53 ff. 
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WHILE 32,78 
WHILE-Schleife 75 ff. 
WITH 32 
Workfile 13,260 
WRITE 24,33,161,175 
WRITELN 24, 26 f., 33,175 

XOR 32 


Zahlen, ganze 37 ff., 106 
Zeichen 45 ff. 
Zeichenketten 48 ff. 
Zeichnen 250 
Zeiger 182 ff. 

Zufallstest 133 f. 
Zuweisung 31 
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